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TITLE ' ! : 



W6120 - AM95/6120 FIRMWARE - PN 05050067-001-002' 



iKK*******)^ 



*>M95/6:i.2Q INTELLIGENT FLOPPY DISK CONTROLLER FIRMWARE 

STANDARD OR MINI DRIVES 

SINGLE AND DOUBLE DENSITY 

SINGLE AND DOUBLE SIDED 



9 

% OTHER RELATED DOCUMENTS? 

I FUNCTIONAL SPECIFICATION -■ FIRMWARE 

% PART NUMBER 02050 067 



AM95/6120 INTELLIGENT FLOPPY DISK CONTROLLER USER MANUAL 
PUBLICATION NUMBER 68 1 34 

AM95/612Q INTELLIGENT FLOPPY DISK CONTROLLER DATA SHEET 
SEE MARKETING 
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cp/m macro assem 2*0 #0 02 fw6120 - am95/6120 firmware - pn 05050 067-0 01-0 02 

* 12 -12-80 / gene gonzales 

j version 1*0 modified* creating version 1*1 

t 

* REASON FOR CHANGE I 
I BUG FIX 

* FUNCTIONS y FEATURES > CAPABILITIES AFFECTED* 
J AUTOBOOT FUNCTION < " autob h > 



* DESCRIPTION OF PROBLEM: 

* WHEN PERFORMING THE AUTOBOOT SEQUENCE y THE BOOTED CODE WAS 
? BEING TRANSFERRED TO MAIN MEMORY LOCATION FFFFH* 

£ THE CODE SHOULD HAVE BEEN TRANSFERRED TO LOCATION 00 OH* 

? 

t SOLUTION IMPLEMENTED: 

$ ADDED A CALL TO SUBROUTINE "ADDRSU" IN ORDER TO INITIALIZE 



$ THE MAIN MEMORY ADDRESS POINTER* 
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£ & >k >k m >k x< >k jk jk >k >k >k >k &: :*: m< jk ~m :=k >k x< >k w. >k :# &: >k & jk x< >k s< va & ;<< & &: >k >k >k x< >i< m y,< w. %. >k >k >k & >k >k >k m< & ■*: >k ;& >k :-k & ;*c w. & w. w. & w. >k m< 

» 02" 03-81 / GENE:: GONZALES 

* VERSION !♦! MODIFIED? CREATING VERSION :U2 



REASON FOR CHANGE!! * 
1* BUG FIX 
2* STEP RATE ENHANCEMENT 

FUNCTIONS ? FEATURES ? CAPABILITIES AFFECTED * 

:l. •> COMMAND < i} i PROCESSOR -• INITIALIZE DISK < " INIT ,; ) 



DESCRIPTION OF PROBLEM! 

1 * WHEN AN INITIALIZE DISK IS ATTEMPTED ON A WRITE PROTECTED 
DISK? THE FD1793 AUTOMATICALLY ABORTS THE COMMAND? LEAVING 
THE DMA CONTROLLER (AND THE FIRMWARE) HUNG-UP. 

2* ENHANCEMENT CONSISTS OF PROVIDING 1'HE USER WITH AN OPTION 
TO ALLOW SELECTION OF TWO (2) DIFFERENT HEAD STEP RAfLS* 

SOLUTION IMPLEMENTED * 

I * INITIALIZE DISK PROCESSOR ( " INIT H ) WILL ABORT THE COMMAND 
IF THE INITIAL "HOME" INDICATES THAT THE DISK IS WRITE 
PROTECTED * 

THE USER MUSI' MONITOR THE WRITE PROTECT FLAG IN THE STATUS 
BYTE IF "THE INITIALIZE COMMAND FAILS* 

2* THE POWER-ON / RESET INITIALIZATION CODE WILL NOW USE THE 
"MINI" AND "SPARE STATUS" BITS OF THE INTERNAL STATUS 
REGISTER TO SET-UP THE HEAD STEP RATE* 



MINI 


FAST 


STEP 


RAT 


JUMPER 


JUMPER 


RASE 


BIT 


OFF 


ON 


SMS 





ON 


ON 


12MS 


01 


OFF 


OFF 


10 MS 


10 


ON 


US- I- 


30 MS 


1 1 



&*::&&;# >k &&& >k &:« >k & :& & :* ;K :& & >k ^ 
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*-MACRG 

'% SET INTERRUPT MASK INSTRUCTION 

SIM MACRO VALUE 

MVI A? VALUE 

DB 30H 
ENDH 



% READ INTERRUPT MASK INSTRUCTION 



*• 
% 
RIM MACRO 

DB 2 OH 

ENDM 
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J )K & :« JK !& >K >K >K >K & >K >K >K >K >K >K )K & ^ 

> M I S C E I... L A N E U S lii: Q U A T P. S 

00 ■■■■■ CGDORQ EQU 00 OH * FIRMWARE ♦ 

0C0 ■■■■■■■ RAMORG EQU 0C0 0H ?DATA* 

0D80 ~ UPORG EQU 0D8GH J USER PROGRAM (640 BYTES)* 

05555H ?PROM FIXED DATA PATTERN, 
AAAA ~ P:l.D EQU OAAAAH *PRGM 1 FIXED DATA PATTERN* 

7676 ■■■■•■■ P2D EQU 07676H > PROM 2 FIXED DATA PATTERN* 



RAMORG 


EQU 


Ui-'URG 


EQU 


* 
P D 


EQU 


P:i.D 


EQU 


P2D 


EQU 


* 
LMBGOT 


EQU 


LMI65 


EQU 


LMI7 


EQU 
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BO ~ LMBGOT EQU 80 OH S ' LIMITED MASTER' JUMP ADDRESS* 

CO - LMI65 EQU 0C0 0H % ' LIMITED MASTER 1 LEVEL 6*5 INTERRUPT SERVICE ROUTINE 

8034 ~ LMI7 EQU 8034H ?' LIMITED MASTER' LEVEL 7 INTERRUPT SERVICE ROUTINE* 
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FLOPPY DISK CONTROLLER (FD1793) REGISTERS 



* 



0000 ■■■■■■■ FDC8T EQU 0H JFDC STATUS REGISTER? READ ONLY* 

000 = FDCCR EQU 0H JFDC COMMAND REGISTER? WRITE ONLY 

00 01 - FDCTR EQU 01H JFDC TRACK REGISTER? READ/WRITE* 

02 - FDCSR EQU 02H SFDC SECTOR REGISTER? RE AD/ WRITE* 

03 =: FDCDR EQU 03H JFDC DATA REGISTER? READ/WRITE* 



* 



FLOPPY DISK CONTROLLER (FD1793) COMMANDS 



* 

0000 = CREST EQU 0H t RESTORE* 

01C = CSEEK EQU 1CH *SEEK* 

0058- CSTEPI EQU 5.8H t STEP IN* 

0F0 - FWTTK EQU OF OH J WRITE TRACK* 

0D8 = FFI EQU 0D8H ? FORCE INTERRUPT* 

0D0 =.-• FFIX EQU ODOH 5 SPECIAL FORCE INTERRUPT W/O INTERRUPT 
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1 
011 
012 
013 
01 4 
015 
016 
017 

IB 
018 
0019 
001 A 
IB 
001C 
00 ID 
00 ID 
IF" 



030 
031 
0032 
0033 
0033 



* FOC GN-BGARD 


DMA i 


* 
DMAAR0 


EQU 


10H 


DMAWCO 


EQU 


11H 


DMAAR1 


EQU 


12H 


DMAWC1 


EQU 


13H 


DMAAR2 


EQU 


1^1-1 


DMAWC2 


EQU 


15H 


DMAAR3 


EQU 


16H 


DMAWC3 


EQU 


17H 


DMAS! 


EQU 


18H 


DMACR 


EQU 


18H 


DMARR 


EQU 


19H 


DMA3MR 


EQU 


1AH 


DMAMR 


EQU 


1EH 


DMACBP 


EQU 


1CH 


DMATR 


EQU 


1DH 


DMAMC 


EQU 


1DH 


DMAAMR 


EQU 


1FH 


* 

» FDC BOARD MAILBOX 


* 

R0 


EQU 


30H 


Rl 


EQU 


31H 


R2 


EQU 


32H 


R3 


EQU 


33H 


R4 


EQU 
PAGE 


33H 



)MA CONTROLLER (AM9517A) REGISTERS & COMMANDS 



JDMA ADDRESS REGISTER * CH 0v 

;dma word count register , csi 

?DMA ADDRESS REGISTER* CH 1» 

♦ DMA WORD COUNT REGISTER* CH 

U)MA ADDRESS REGISTER y CH 

t DMA WORD COUNT REGISTER t 

*DMA ADDRESS REGISTER? CH 

J DMA WORD COUNT REGISTER y 



CH 
3 9 
CH 



READ/WRITE * 

9 READ/WRITE * 

READ/WRITE* 

1 9 READ/WRITE ♦ 

READ/WRITE* 

2 y READ/WRITE * 
READ/WRITE • 

3 v READ/WRITE ♦ 



?DMA STATUS REGISTER y READ ONLY* 

% DMA COMMAND REGISTER v WRITE ONLY * 

U')MA REQUEST REGISTER y WRITE ONLY* 

»DMA SINGLE MASK REGISTER y WRITE ONLY* 

J DMA MODE REGISTER? WRITE ONLY* 

JDMA CLEAR BYTE POINTER FLIP-FLOP (COMMAND)* 

?DMA TEMPORARY REGISTER y READ ONLY* 

£DMA MASTER CLEAR (COMMAND)* 

SDMA ALL MASK REGISTER'!; WRITE ONLY* 



BOX REGISTERS (FDC SIDE) 



* HOST-TO- -FDC y FDC CAN 

SHOST-TQ-FDC* FDC CAN 

JHQST-TQ-FDC* FDC CAN 

*HOST-TO-FDCy FDC CAN 

JFDC-TO-HOSTs- FDC CAN 



READ 
READ 
READ 
READ 



ONLY* 
ONLY* 
ONLY* 
ONLY 9 



CLEARS FDCMB5* 



WRITE ONLY* 
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? MISCELLANEOUS FDC BOARD REGISTERS* FLIP-FLOPS* AND COMMANDS 



048 
048 
0049 
049 
049 
04A 
0-4 A 
04B 
0G4C 
004D 
04F 

00 
002 
00 04 
06 
040 
020 
0010 
00 08 
004 
02 
080 
020 

088 
085 
046 
04B 
04 A 
05B 
OB 
07 
03 

0001 
010 
080 
040 



FDCISR 


EQU 


FDCICR 


EQU 


CLRRST 


EQU 


SETRST 


EQU 


FDSRST 


EQU 


FDCPR 


EQU 


FDCRST 


EQU 


FDCCI 


EQU 


FDCEOP 


EQU 


DRVSEL 


EQU 


RESET 


EQU 


FDBUFF 


EQU 


FDMAIN 


EQU 


BFMAIN 


EQU 


MAINBF 


EQU 


SYSHAK 


EQU 


MINI 


EQU 


DR2SID 


EQU 


SYSRST 


EQU 


LMASTR 


EQU 


STATIN 


EQU 


HOLD 


EQU 


SYSINT 


EQU 


DMA0RD 


EQU 


DMA1WT 


EQU 


DMA2RD 


EQU 


DMA3WT 


EQU 


DMA2I1 


EQU 


DMA3I2 


EQU 


ENACH2 


EQU 


ENACH3 


EQU 


ENAC23 


EQU 


MEMIO 


EQU 


MEMMEM 


EQU 


HDI...OAD 


EQU 


DNRDY 


EQU 


WTPT 


EQU 



48H 
43H 
49H 
49H 
49H 
4AH 
4AH 
4BH 
4CH 
4DH 
4FH 





4 OH 
2 OH 
10H 
08H 
04H 
02H 
8 OH 
20H 

88H 

85H 

46H 

4BH 

4AH 

5BH 

OBH 

07H 

3 

0H 

01H 

10H 

80H 

40H 



5 FDC 
J FDC 
J FDC 
*FDC 
?FDC 
SFDC 
JFDC 
SFDC 
?FDC 
JFDC 
J FDC 



INTERNAL STATUS REGISTER* READ ONLY* 
INTERNAL COMMAND REGISTER* WRITE ONLY* 
CLEAR (TOGGLE) SYSTEM RESET* WRITE ONLY* 
START (TOGGLE) SYSTEM RESET* WRITE ONLY* 
START FD1793 RESET* READ ONLY* 
PAGE REGISTER (DMA)* WRITE ONLY* 
STOP FD1793 RESET? READ ONLY* 
RESET 'COMMAND IN* FLIP-FLOP (COMMAND)* 
RESET 'END OF PROCESS 1 FLIP-FLOP (COMMAND) 



DRIVE 
BOARD 



SELECT 
RESET* 



REGISTER* WRITE ONLY 



j-MEM CONTROL IN 

J MEM CONTROL IN 

?MEM CONTROL IN 

*MEM CONTROL IN 



1 FDCICR ! * 
1 FDCICR ' * 
' FDCICR ' * 
1 FDCICR ' * 



DISK 
DISK 
BUFF 
MAIN 



BUFF * 
MAIN* 
MAIN* 
BUFF" * 



t FDCISR - SYSTEM HOLD ACKNOWLEDGE* 

* FDCISR - MINI SELECT* 

* FDCISR - 2 SIDED DRIVE* 

* FDCISR - SYSTEM RESET* 

$ FDCISR ™ LIMITED MASTER SELECT, 

J SPARE STATUS IN* 0-FAST STEP* l^SLOW STEP* 

J FDCICR - HOST HOLD REQUEST* 

? FDCICR - SYSTEM INTERRUPT* 

J DMA CH0* READ MEM* 
»DMA CHI? WRITE MEM* 

JDMA CH2* READ DISK (I/O >MEM)* 

?DMA CHS* WRITE DISK (MEM >I/0)* 

* SINGLE* NON-AUTO* MEM-I/O* CH2* TRK HDR* 

? SINGLE* AUTO* MEM-I/O* CHS* SECTOR BODY* 

TENABLE 'DMA CHANNEL 2* 

* ENABLE DMA CHANNEL 3* 

? ENABLE DMA CHANNELS 2 AND 3* 

♦DMA COMMAND? MEM-TG-I/O* I/O-TO-MEM* 

i DMA COMMAND * MEM-TO-MEM * 

5HEAD LOAD BIT OF 95/6120 DRIVE SELECT REGIS TEF 

JFD1793* NOT READY* 

? FD :l. 793 * WRITE PROTECT * 
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#010 



FW6 120 
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i- N 0;n);j0 06/- I -00 



020 
088 
098 
088 
09C 
O0FC 
GOFE 
OOFF 
OODF 
0.0 SF 
019 
DO 
0D1 



HOLD 


EQU 


ri;;:serr 


EQU 


SEKERR 


EQU 


8 U.ERR 


EQU 


RDSERR 


EQU 


WTSERR 


EQU 


DIFFDR 


EQU 


DRNOTA 


EQU 


LEDON 


EQU 


LEDOFF 


EQU 


EI&575 


EQU 


ENTBi 


EQU 


ENTB2 


EQU 




PAGIi: 



20H *FD1793y HEAD LOADED* 

88H t RESTORE y ERROR MASK * 

981-1 J SEEK v ERROR MASK, 

88H 'i STEP IU9 ERROR MASK, 

9CH JREAD SECTOR y ERROR MASK* 

OFCH J WRITE SECTOR y ERROR MASK 

OFEH * DIFFERENT DRIVE* 

OFFH J DRIVE NOT ACTIVE* 

ODFH J 1 SOD 1 •••••• 1 ~ LED ON» INTE 

OSFH J'SOD' ~ « LED OFF* INT 

019H * ENABLE INTERRUPTS 6*5 & 

ODOH J PORT TO ENABLE 95/5132 P 

0D1H SPORT TO ENABLE 95/5132 P 



RRUf 
ERRl 

/ * 5 . 

ROM 

ROM 



:, TS 
JPTS 

SOC 
SOC 



MASK! 
MAS! 

KETS 
KETS 



;;;d* 

(ED 
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080 
040 
0060 
08 



0080 
040 
0020 
010 
08 
004 
02 



080 
040 
020 
010 
00 08 
00 04 



080 
040 
020 

o o i o 

08 
04 
2 



080 
040 
020 
1 
08 
04 



2*0 


#011 


FW6120 - 


OPCOMP 


EQU 


80H 


OPFAIL 


EQU 


4 OH 


OPREJ 


EQU 


6 OH 


OPWP 


EQU 


08H 


? CCC 


COMMAND COMPLE 


CCCHO 


EQU 


80 H 


CCCSE 


EQU 


4 OH 


CCCIN 


EQU 


2 OH 


CCCNBR 


EQU 


10H 


CCCNBW 


EQU 


08H 


CCCBR 


EQU 


04H 


CCCB.W 


EQU 


02H 


* ucc 


UTILITY COMPLE 


* 

UCCRW 


EQU 


80H 


UCCNE 


EQU 


4 OH 


UCCSE 


EQU 


2 OH 


UCCWT 


EQU 


10H 


UCCDHA 


EQU 


08H 


UCCI8K 


EQU 


04H 


* 

? UST 


AT 


UTILITY STAT 


USTREX 


EQU 


80 H 


Ub i Ri • 


EQU 


4 OH 


USTSF 


EQU 


20H 


USTEOD 


EQU 


10H 


USTDNR 


EQU 


08H 


UST DMA 


EQU 


04H 


USTSI 


EQU 


02H 


? PCC 


PR 


IMITIUE CUMF- 


PCCRE 


EQU 


80 H 


pccse 


EQU 


40H 


PCC8X 


EQU 


20H 


PCCRD 


EQU 


10H 


PCCWR 


EQU 


08H 


pccwt 


EQU 


04H 
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* OPERATION COMPLETE 

* OPERATION FAILED * 

t OPERATION REJECTED 
% WRITE PROTECT * 

TION CODE EQUATES 



J 'HOME' IDENTIFIER* 
% ' 8ETPAR * IDENTIFIER * 

* 'INIT' IDENTIFIER* 
% ' NON -BUFFERED READ ! IDENTIFI 
* ' NON-BUFFERED WRITE ' IDENTIC 
;• BUFFERED READ' IDENTIFIER* 
% ' BUFFERED WRITE ' IDENTIFIER « 

TION CODE EQUATES 

t ' RWRT ! IDENTIFIER * 
% 'NEXT' IDENTIFIER* 
? ; SETPAR 3 IDENTIFIER * 

* 'INIT' IDENTIFIER* 
SOMA OPERATION IDENTIFIER* 
i ' ISEEK l IDENTIFIER * 

US CODE EQUATES 

* RETRIES EXHAUSTED* 

* RESTORE FAILED* 
5 SEEK FAILED* 
JEND OF DISK ENCOUNTERED* 
£ DRIVE NOT READY* 
*DMA WAS HUNG-UP* 
J STEP-IN FAILED* 

:, LETION CODE EQUATES 

? 'RESTGR' IDENTIFIER* 
% ! SEEK ' IDENTIFIER * 
% ' STEP-IN ' IDENTIFIER * 
* ' READ ' IDENTIFIER * 
2 * WRITI 



(UNKNOWN OPERATION CODE) 



b.K * 
IER 



IDENTII 



U::.K * 



# ! INIT » IDENTIFIER 
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1 PST 


AT i : 


PRIMITIVE 


STATUS COK 


*E EQUATE 


:s 




i 

PSTREX 


EQU 


BOH 


? retries; 


; EXHAUST 


ED . 




PSTRF 


EQU 


40 H 


* RESTORES 


; FAILED* 






PSTWE1 


EQU 


20 H 


$ ' WAIT ' - 


■INTERRUF 


'T OC 


;CURRED BUT FD1793 


PSTWE2 


EQU 


10H 


% ' WAIT ' - 


•TIMEOUT 


AND 


FD1793 NOT BUSY, 


PSTWE3 


EQU 


081-1 


* ' WAX t ' • 


•TIMEOUT 


AND 


FD1793 BUSY* 


SEL.ERR 


EQU 


OFEH 


% ' SELECT 


" ' -DRIVE 


NOT 


ACCESSED YET * 



080 -■■■ 

040 ^ 

020 =:■: PSTWE1 EQU 20H ?' WAIT ' -INTERRUPT OCCURRED BUT FD1793 BUSY 

010 -- 

08 ~ 

0FE ~ 

PAGE 
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* POWER-ON / RESET ENTRY POINT' 
* 

t 

1- DETERMINE LIMITED MASTER JUMPER SET-UP 

* IF 'LIMITED MASTER' JUMPER IS INSTALLED* GOTO PRE-DETERMINED ADDRESS 
% 

f OTHERWISE » START-UP THE FIRMWARE 

♦'SOD 1 ~ ■'■■■■ LED ON» INTERRUPTS MASKED* 

♦ SET 'POWER-ON' CONDITION IN STATUS REGISTER, 

♦ INITIALIZE THE STACK POINTER * 

♦ STOP RESET TO FD1793 STARTED AT PWR--ON/RESET* 

J TERMINATE INTERNAL FD1793 HOME MICROCODE* 
♦ READ INTERNAL STATUS REGISTER * 

♦ IS BOARD JUMPERED FOR 'LIMITED MASTER 1 ? 

♦ NO? START-UP THE POWER-ON TESTS* 

♦ENABLE THE 95/5132 
♦ -TESTER BOARD ♦ 
♦GOTO SPECIAL CODE* 



00 00 




ORG 


CODORG 




FW6120S 









SIM 


LEDON 


03 


3E0F 


MVI 


ApOFH 


05 


D333 


OUT 


R4 


07 


31A70C 


LXI 


SP* STACK 


0A 


DB4A 


IN 


FDCRST 


OOOC 


3ED0 


MMI 


A»FFIX 


0E 


D30 


OUT 


FDCCR 


010 


DB48 


IN 


FDCISR 


012 


E604 


ANI 


LMASTR 


014 


C220 


JNZ 


RAM 


017 


3EFF 


MUI 


A?0FFH 


019 


D3D0 


OUT 


ENTB1 


IB 


DSD I 


OUT 


ENTB2 


ID 


C30 080 


JMP 
PAGE 


LMBOOT 
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» POWER--GN TEST #1 •- RAM TEST 

RAM * 

020 010 OFF LXI B.0FF0 0H 

23 2 1 FF F LXI H 9 R AMORG*- 1 23 

026 110 0(H LXI D*1024 

I INITIALIZE RAM LOCATIONS OCOQH THROUGH OFFFH TO FFH 



029 


70 


RAM 10$ 


MOV 


M»B 


02 A 


2B 




DCX 


H 


02E: 


IB 




DCX 


D 


002C 


7A 




MOV 


A*D 


2D 


B3 




ORA 


E 


002E 


C2290 




JNZ 


RAM 10 


031 


C34A0 




JMP 
PACE 


RAM20 



J SKIP IMBEDDED INTERRUPT CODE* 
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034 

034 C3D709 



THESE INTERRUPT VECTORS ' ARE SKIPPED BY THE RAM TEST 



ORG 
JMP 



034H 
FDISR 



t LEVEL 6 * 5 INTERRUPT 



038 

038 C33480 



ORG 
JMP 



03GH 
LMI7 



% LEVEL 7 INTERRUPT 



003C 

03C D31D 
03E 3EFF 
040 3224 0C 
043 C9 



ORG 
OUT 
MVI 
STA 
RET 



03CH 
DMAMC 
A*0FFH 
DMAHU 



? LEVEL 7*5 INTERRUPT* 
* RESET THE DMA CONTROLLER* 
?SET FLAG TO INDICATE 
J-DMA WAS HUNG-UP ♦ 



044 3:!.2E3032 




DB 


•1*02 


048 5555 


P0DATA* 


DW 
PAGE 


POD 



AVERSION* LEVEL 

5 PROM FIXED DATA FOR PROM TEST* 
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* 

? PHASE 


:b STEP 


S 1 & 2y I 


00 4 A 


21O0 0C 


% 
RAM2 % 


LXI 


Hy RAMORG 


G(HD 


110 04 




LXI 


Dp 1024 


050 


7E 


RAM25: 


MOV 


A y n 


051 


A8 




XRA 


B 


052 


C28E0 




JH7. 


PROM 


055 


7 i 




MOV 


MvC 


056 


23 




INX 


H 


057 


IB 




OCX 


D 


058 


7A 




MOV 


A * D 


059 


B3 




ORA 


E 


OOSA 


C250 




JNZ 


RAM25 


05D 


AF 




XRA 


A 


05E 


BO 




ORA 


B 


05F 


CA6800 




JZ 


RAM30 


062 


IFF 




LXI 


ByOOFFH 


0065 


C34A0 




JMP 


RAM20 






% PHASE 


; 2y STEP 


S 1 £ 2.9 ! 


068 


010 OFF 


'i 

RAM30* 


LXI 


B*0FF00H 


06B 


2 IFF OF 


RAH35 * 


LXX 


HyRAMORQ 


06E 


11 00 04 




LXI 


D*1024 


0071 


7E 


RAM40 * 


MOV 


A?M 


0072 


A8 




XRA 


B 


0073 


C28E0 




JNZ. 


PROM 


076 


71 




MOV 


MyC 


077 


2B 




DCX 


H 


078 


IB 




DCX 


D 


079 


7A 




MOV 


AyD 


07A 


B3 




ORA 


E 


07B 


C2710 




JNZ 


RAM40 


007E 


AF 




XRA 


A 


07F 


BO 




ORA 


B 


080 


CA890 




JZ 


RAM50 


0083 


IFF 




LXI 


BvOOFFH 


086 


C36B0 




JMP 


RAM35 



UPWARD READ/CHECK/WRITE COMPLIMENT 

?H/L :::: A (FIRST RAM LOCATION)* 

JD/E ■■■■ L(RAM TO BE TESTED)* 

* READ TARGET LOCATION * 

SIS IT FF? / IS IT 0? 

JNOy GOTO ERROR EXIT* 

J YES* WRITE COMPLEMENT PATTERN* 

* point to next location* 

% decrement number of bytes to do 

* done: all the ram yet? 

% NO j CONTINUE * 

% YES y 

?WAS THAT STEP 2? 

J YES* GOTO NEXT PHASE* 

?NO» SET-UP FOR STEP 2* 

*DQ STEP 2* 

DOWNWARD READ/CHECK/WRITE COMPLIMENT 



3+1023 



?H/L - A (TARGET LOCATION)* 

?D/E - L<RAM TO BE TESTED)* 

JREAD TARGET LOCATION* 

*IS IT FF? 7 IS IT 0? 

£NOy GOTO ERROR EXIT* 

J YES* WRITE COMPLEMENT PATTERN* 

; POINT TO NEXT LOCATION* 

t DECREMENT NUMBER OF BYTES TO DO* 

J DONE ALL THE RAM YET? 

% NO y CONTINUE * 

?YESy 

*WAS THAT STEP 2? 

?YESy TEST PASSED* 

#NQy SET-UP FOR STEP 2* 

tDO STEP 2* 
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CP/M MACRO ASSEM 2*0 #0:1.7 FW612Q ~ AM95/6120 FIRMWARE - FN 05030 067-0 01-0 02 



i RAM TEST PASSED 



RAMS OS 



089 060E 
00 SB 78 
008C D333 



MUX B?0Ei- 

MOV A 9 B 

OUT R^ 
PAGE 



t CLEAR RAM ERROR FLAG. 



CP/M MACRO ASSEM 2*0 #018 FW6120 - AM95/6120 FIRMWARE - PN 05050067 --001-- 002 

J)K)K)K)K)K)K>K>Ktt>K>K)K>K}K>K)K)K)K>K)K*^ 

% POWER -ON TEST #2 - PROM TEST 

PROM * 
08E 2A48G0 LHLD PCDATA JREAD PROM FIXED DATA* 

091 EB 

092 2A0705 LHLD PI DATA J READ PROM 1 FIXED DATA* 

095 19 
0096 EB 
097 2AE10B LHLD P2DATA J READ PROM 2 FIXED DATA* 

09A 19 
009B 118B89 
09E 19 

09F 7C 

00A0 B5 OR A L J WAS THE SUM OF ALL THE PATTERNS 00 00? 

0A1 C2AA0 



GOA't 78 

0A5 E60D 

00A7 47 

00A8 D333 OUT R4 * CLEAR PROM ERROR FLAG* 





LHLD 


PODATA 




XCHG 






LHLD 


PI DATA 




DAD 


D 




XCHG 






LHLD 


P2DATA 




DAD 


D 




LXI 


D?898BH 




DAD 


D 




MOV 


A?H 




ORA 


L 




JNZ 


DMA 


? 1 


PROM TEST F 


:, ASSED 


* 


MOM 


A*B 




AN'I 


0DH 




MOM 


B*A 




OUT 


R4 
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CP/M MACRO ASSEM 2* (3 #019 FW6120 - AM95/6120 FIRMWARE - PN 05050 067-0 01-0 02 

% POWER-ON "TEST #3 •••• DMA TEST 
% 

DMA? 

0AA C5 

OOAB 01FF0 LXI By 255 »B/C :::: L< TRANSFER) 

AE :!. i A A LXI D » DMA ? D/E :;:: A < SOURCE ) * 

0B1 21620C LXI 1-bBUFF SH/L = A (DESTINATION) 

0B4 CD69GB CALL SUDMAO ? SET-UP THE DMA CONTROLLER 

00B7 CI 

B8 AF XRA A % CLEAR ' MINUS ' FLAG ♦ 



PUSH 


B 


LXI 


By 255 


LXI 


D 9 DMA 


LXI 


1-bBUFF 


CALL 


SUDMAO 


POP 


B 


XRA 


A 


MVI 


A 9 '■{• 


OUT 


DMARR 


NOP 




NOP 




NOP 




ORA 


A 


JM 


FDC 


MVI 


C*0 



0B9 3ECH 

OOBB D319 OUT DMARR TISSUE SOFTWARE DMA REQUEST* 

OOBD 00 NOP JTHE DMA 

OOBE NOP J -TRANSFER SHOULD 

OOBF NOP % OCCUR HERE 

0C0 B7 ORA A J DID THE DMA GET HUNG-UP? 

0C1 FAD70 JM FDC JYES* ABORT* 

OOO'i 0E0 MVI CpO *NOj» 

? CHECK DATA FOLLOWING THE TRANSFER 

SREAD SOURCE BYTE* 

SDOES IT MATCH THE DESTINATION BYTE? 

»NG* ABORT* 

;yes* 

>have i compared the whole buffer? 

* NO -f CONTINUE * 



*YES* DMA PASSED 







DMA10* 






O0C6 


1A 




LDAX 


D 


00C7 


BE 




CMP 


M 


0C8 


C2D70 




JNZ 


FDC 


OOCB 


13 




INX 


D 


OOCC 


23 




INX 


H 


CD 


OD 




DCR 


C 


0CE 


C2C6Q0 




JNZ 


DM A 10 






* 

i DMA t 


LSi PAS 


SED 


G0D1 


78 




MOV 


AvB 


0D2 


E60B 




ANI 


OBi-1 


0D4 


47 




MOV 


B y A 


0D5 


D333 




OUT 
PAGE 


R-* 



* CLEAR DMA ERROR FLAG* 



CP/'M MACRO ASSEM 2*0 #020 FW6120 •■•• AM95/6120 FIRMWARE ■■■■ PH 05050067--U 01 -0 02 

5 >k & & :o< * >X & >K )K »: ;*G* x< * ^^ 

i- 

i POWER-ON TEST =IH ••■■ FDC TEST 

£ & jk >Owtf >k k )o; & ;o< & :*: >k ^^^ 

FDC % 

0D7 DP XN FDCST 

0D9 IF RAR 

DA DA0101 JC POTEND £BUSY 

0DD 0E11 MUX C*11H 

OODF 113322 LXX Dv2233H 

0E2 79 MOV AvC 

0E3 D301 OUT FDCTR JSET TRACK REGISTER 

0E5 7 A MOV A?D 

0E6 D302 OUT' FDCSR J SET SECTOR REGISTER 

0E8 ?B MOV AvE 

0E9 D303 OUT" FDCDR J SET DATA REGISTER 

00EB DB01 IN FDCTR 

ED 91 SUB C J CHECK TRACK REGISTER* 

0EE 4F MOV C*A 

00EF DB02 IN FDCSR 

0F1 92 SUB D % CHECK SECTOR REGISTER* 

00F2 Bl ORA C 

OOFS *W MOV C*A 

0GF4 DB03 IN FDCDR 

0F6 93 SUB E J CHECK DATA REGISTER* 

0F7 Bl ORA C JWERE THE REGISTERS CORRECT? 

OOFS C20101 JNZ POTEND SNOv ABORT* 

i 

% FDC TEST PASSED 

% 

00FB 78 MOV A»B JYES* FDC PASSED* 

00FC E607 ANI 7 

OOFE 47 MOV B?A 

OOFF D333 OUT W\ > CLEAR FDC ERROR FLAG* 

POTEND* 

0101 05 PUSH B JSAVE POWER-ON TEST FINAL CODE* 

PAGE 



CP/M MACRO ASSEM 2*0 #021 FW6120 •••• AM95/6120 FIRMWARE - PN 05050 067-0 01-0 02 

$3K)KXCX)K)K)K)K)K)K>K:04)K>K3K)K)K)K3K)KX^ 
♦ 

♦ POWER-ON / RESET INITIALIZATION 

♦ 



0102 


DB48 


0104 


E620 


0106 


EE20 


0108 


3228 OC 


010E) 


07 


010C 


07 


010D 


07 


OlOE 


47 


01 OF 


DB48 


0111 


E602 


0113 


BO 


0114 


47 


0115 


3E0 


0117 


BO 


0118 


322C0C 


01 IE! 


3E1C 


01 ID 


BO 


01 IE 


322D0C 


0121 


3E58 


0123 


BO 


0124 


322E0C 


0127 


E601 


0129 


214D1B 


012C 


CA3201 


1 7F 


212313 



PORI * 








IN 


FDCISR 




ANI 


MINI 




XRI 


MINI 




STA 


MTRCTL 




RI...C 






RLC 






RLC 






MOV 


By A 




IN 


FDCISR 




ANI 


STATIN 




ORA 


B 




MOV 


B 9 A 




MVI 


A 9 CREST 




ORA 


B 




STA 


FREST 




MVI 


A*GSEEK 




ORA 


& 




STA 


FSEEK 




MVI 


A*CSTEP2 




ORA 


B 




STA 


FSTEPI 




ANI 


1 




I...XI 


I-U1B4DH 




JZ 


PORIIO 




LXI 


H?1323H 


PORIIO * 








SHI...D 


HITK 
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♦ READ INTERNAL STATUS REGISTER* 
J ISOLATE 'MINI 1 STATUS BIT* 
♦INVERT IT FOR INTERNAL USE* 
♦SET MOTOR CONTROL* 

♦USE 'MINI* 
♦-BIT TO 

♦ - SET-UP HEAD 

♦ STEPPING RATES * 

♦READ INTERNAL STATUS REGISTER* 
♦ISOLATE 'STEP RATE 1 BIT* 
♦MERGE IT WITH STD/MINI BIT* 



♦SET RESTORE COMMAND* 



♦SET SEEK COMMAND* 



* SET STEP-IN COMMAND * 

♦IS THIS A 'MINI' CONFIGURATION? 

♦27/77* 

♦NO? STANDARD SIZE* 

♦19/35* 



0132 222A0C SHLD HITK J SET HIGH TRACK/SECTOR 



CP/M MACRO ASSEM 2*0 #022 FW6120 •■•• AM95/6120 FIRMNARE - ! :: 'N (K;i0o0 067-0 01-0 02 



5ET-UP DEFAULT VALUED FOR THE VARIABLES <IN CASE AUTO-BOOT IS JUMPERED 



0135 3E10 
0137 320-9 0C 

013B 3206 OC 
013E 32160C 
01-^1 32170C 

5/H 32180C 
01 x y7 322-900 

01 -9 A 3229 OC 
01 ^D 3C 
01-9E 32070C 
0151 321 COC 



MMI 


A v 1 H 


STA 


UNIT 


XRA 


A 


STA 


TRACK 


STA 


USPS 


f ■•■-(• A 


USMA 




USMA-Ki. 


STA 


DMAHU 


STA 


BPI. 


INR 


A 


STA 


SECTOR 


STA 


SECCNT 


PACE 





% PLAIN MANILLA UNIT CODE W/RETRIES « 

? TRACK 0* 

5PRE-SET THE 

» -20 -BIT ADDRESS 

i FOR AUTO-BOO"! ♦ 

* CLEAR DMA NUNC FLAG* 

2 SET DEFAULT TO CHECK FOR INTERRUPT SET-UP 

J SECTOR 1 * 

SPRE-SET SECTOR COUNT FOR AUTO-BOOT* 



>>*?&&* 



CP/M MACRO ASSEM 2*0 #023 FW6120 - AM95/6120 FIRMWARE! - PN 05050 067-0 01-0 02 

* INITIALIZE COMMAND VECTOR TABLE 

015-9 213502 LXI H?NBRD » NON-BUFFERED READ* 

0157 220 0C SMLD JMPTAB 

01SA 21AC02 LXI H*NBWT * NON-BUFFERED WRITE* 

015D 22020C SHLD JMPTAB+2 

? 

t INITIALIZE CURRENT DRIVE* CURRENT TRACK* AND TRACK SAVE AREA 

0160 21310C LXI FbDRVNOW JH/L « A (DATA AREA)* 

0163 0606 MVI B?6 

FORI 20 * 

0165 36FF MVI M>DRNOTA ?SET TO INACTIVE VALUE* 

0167 23 INX H 

0168 05 DCR B 

0169 C26501 JNZ PORI20 
016C 3E10 MVI A>HDLOAD 

016E D34D OUT DRVSEL J FORCE HEAD LOAD ENABLE BIT ON* 

0170 32050C ST A DRIVE J INITIALIZE 'DRIVE 8 FOR • SPXX ' * 
0173 CD1805 CALL SPXX J USE 'SPXX 1 TO FORCE DEFAULT SET-UP* 
ui/6 C1 POP B JGET POWER-ON TEST FINAL CODE* 

0177 78 MOV AfB 

0178 B7 OR A A J WAS THERE A POWER-ON TEST ERRORS 

0179 C21202 JNZ DONE 2 YES? SKIP AUTO-BOOT* 

0170 SIM LEDOFF *NG* 'SOD' - 1 ^ LED- OFF y INTERRUPTS MASKED 

PAGE 



CP/M MACRO ASSEM 2*0 #02-'* FW6120 -■ AM95/6120 FIRMWARE ■•■• PN 05050 067 -00 .1.-0 02 

% DETERMINE AUTO-BOOT JUMPER SET-UP 

% IF 'AUTO-BOOT' JUMPER IS INSTALLED* DO IT! 

J OTHERWISE* ENTER IDLE LOOP AND WAIT FOR A USER COMMAND 

* 

017F RIM J READ 8085 INTERRUPT MASK* 

0:1.80 B7 OR A A ?IS 'SID 1 ~ 0? 

0181 F2B308 JP AUTOB SYES* GOTO AUTO -BOOT. 

018'* AF XRA A ?NO* NORMAL START-UP* 

0185 C31202 JMP DONE 
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CP/'M MACRO ASSEM 2*0 



#025 



FN6120 - AM95/6120 FIRMWARE - PN 05050 067-0 01-0 02 







A 

* 








% jkjkjsok&jk; 


40KJKX0 






TD1 Ft 




0188 


DIMS 




IN 


01OA 


B7 




ORA 


018B 


FAAE01 




JM 


01 BE 


E620 




ANI 


0190 


C23301 




JNZ 


0193 


3A050C 




I...DA 


0196 


E620 




ANI 


0198 


CA8801 




\Jj£. 


019B 


DBOO 




IN 


019D 


E620 




ANI 


019F 


C28801 




JNZ 


01A2 


21050C 




LXI 


01A5 


7E 




MOM 


01A6 


E6DF 




ANI 


01A8 


D3^D 




OUT 


01AA 


77 




MOV 


OlAB 


038801 


IDLE 05* 


JMP 


01AE 


D3^B 




CUT 


01B0 


3A230C 




LDA 


01B3 


B7 




ORA 


01B4 


21050C 




LXI 


01B7 


CADS 01 




JZ 


01BA 


7E 




MOV 


01BB 


E620 




ANI 


01BD 


C2D501 




JNZ 


iilCO 


7E 




MOV 


01 CI 


F620 




ORI 


01C3 


1XHD 




OUT 


01C5 


77 




MOV 


01C6 


06 OB 


IDLE10* 


MVI 


01C8 


1 19020 


ri'ti i«'i ,:: ; -: 


LXI 


01CB 


IB 


.JU./1...I". .1. %..' * 


DCX 


01CC 


7 A 




MOV 



IDLE LOOP - WAITING FOR USER COMMAND 



FDCI8R 

A 

IDLE05 

MINI. 

IDLE 

DRIVE 

MINI 

IDLE 

FDCST 

20H 

IDLE 

H* DRIVE 

A?M 

NOT MINI 

DRVSEL 

M»A 

IDLE 

FDCCI 

MTRCTL 

A 

i-U DRIVE 
IDLE20 
A ? M 
MINI 
IDLE20 
A ? M 
MINI 
DRVSEL 

M 9 A 

By 11 

D » 2.09 OH 

D 
As>D 



J HAS A COMMAND BEEN RECEIVED? 
£YES» BEGIN PROCESSING* 
J IS THIS A 'MINI 1 CONFIGURATION? 
% NO 9 

J MINI MOTOR ON? 
»NQ* 

5 DOES FD1793 SHOW HEAD LOADED? 
* YES v 



J TURN OFF MINI MOTOR* 



♦ KEEP WAITING* 

? RESET 'COMMAND IN* FLIP-FLOP* 

SIS THIS A 'MINI 5 CONFIGURATION? 

? NO 9 

♦MINI MOTOR ON? 
% YES 9 

HORN ON MINI MOTOR* 



♦WAIT 1*1 SECONDS FOR MOTOR SPIN -UP* 



CP/M MACRO ASSEn 2*0 #026 FW6120 •■•■ AM95/6120 FIRMWARE - PN 05050 067-0 1-0 02 

01 CD B3 
0:LCE C2CB01 
01D1 OS 
01D2 C2C80:i. 

IDL.E2U 
01D5 7E 
01D6 F610 ORI HDL.DAD 5 FORCE HEAD L.OAD ENABLE BIT ON* 

o:i. ds i;x;hd 

01 DA 7? 

01DB 21.1202 LXI H*DONE JPUT 'FINAL RETURN' ADDRESS 

01DE E5 PUSH H ?-ON THE STACK* 

01DF DB33 IN R3 J FETCH USER COMMAND* 

01 El 5F 

01E2 E6C0 ANI OCOH ?IS THIS ONE OF THE MISC* COMMANDS? 

QIE^ CA9B(H JZ MISC *YES> GO DO IT 

0J.E7 7B 

01E3 E63F ANI 3FH * ISOLATE AND SAVE 

01EA 3C INR A J -TRUE VALUE INTENDED IN 

01EB 321C0C ST A SECCNT J •••-•THE COUNT FIELD* 

* 

? READ? WRITE* OR EXECUTE SPECIAL SET-UP 

; INITIALIZE THE WORKING 

5 -READ/WRITE RETRY COUNTER* 

J GET USER SPECIFIED MEMORY ADDRESS* 

$ PERFORM ADDRESS SET-UP* 

J RESET THE SENSE ERROR BYTES* 

? FETCH USER COMMAND* 

% IS THIS THE EXECUTE COMMAND? 

J YES j- GO DO IT* 

> NO y 

SIS THIS THE READ COMMAND? 

?YES» GO DO IT* 

»NO* MUST BE THE WRITE COMMAND* 

?GO TO COMMAND PROCESSOR* 



#026 


FW6120 


ORA 
JNZ 


E 
IDLE 15 


DCR 


B 


JNZ 


IDLE 10 


MOM 


A 9 M 


ORI 


HDLOAD 


OUT 


DRVSEL 


MOV 


M 9 A 


LXI 


hi •,« DONE 


PUSH 


H 


IN 


R3 


MOV 


E>A 


ANI 


OCOH 


JZ 


MISC 


MOV 


A?E 


ANI 


3FH 


INR 


A 


STA 


SECCNT 



01EE 


3 A 1 DOC 




LDA 


RDWTRC 


01F1 


321F0C 




STA 


RCNT1 


OlF'i 


CDC40B 




CALL 


GETADR 


01F7 


GDDD08 




CALL 


ADDRSU 


01 FA 


CDD^OB 




CALL 


RSTSEN 


01FD 


DB33 




IN 


R3 


OlFF 


E6C0 




ANI 


OCOH 


0201 


FECO 




CPI 


OCOH 


0203 


CA71(H 




JZ 


UXEC 


0206 


2A0 0C 




LHLD 


JMPTAB 


0209 


FE/H) 




CPI 


^OH 


020B 


CA1102 




JZ 


IDLES 


02 0E 


2A020C 


IDLE30 I 


1...HLD 


JMPTAB+2 


0211 


E9 




PCHL 
PAGE 





CP/M HACRO ASSEM 2*0 #027 FW6120 - AM95/6120 FIRMWARE: - PH 05050 067-0 01-0 02 

% OPERATION COMPLETE - POST STATUS 

'i 

done: 

♦ set 'operation complete' bit* 

♦ post status* 

* should i bypass interrupt generation? 

♦ YES? 

♦ NO? GENERATE HOST INTERRUPT IF 
J -REQUESTED BY THE USER, 

J CLEAR 'BYPASS' FLAG* 
♦CLEAR DMA HUNG FLAG* 

$ 

* REMOVE HEAD LOAD ENABLE BIT (ALLOW UNLOAD AFTER 15 INDEX PULSES) 



0212 


F680 


ORI 


OPCOMP 


0214 


D333 


OUT 


R4 


0216 


3A290C 


LDA 


BPI 


0219 


B7 


ORA 


A 


021 A 


C22202 


JNZ 


DONE 10 


021 D 


3A270C 


LDA 


INTFLG 


0220 


D348 


OUT 


FDCICR 




DONE10I 




0222 


AF 


XRA 


A 


0223 


3229 DC 


STA 


bi-m: 


0226 


3224 0C 


ST A 


DMAHU 



0229 


21050C 




LXI 


i-b DRIVE 


022C 


7E 




MOV 


A y M 


022D 


E6EF 




ANI 


NOT' HDLOAD 


022F 


D34D 




OUT 


DRVSEL 


0231 


77 


DONE 


MOV 
:20* 


M y A 


0232 


C38801 




JMP 
PAGE 


IDLE 



*GO WAIT FOR ANOTHER COMMAND 



CP/M. MACRO ASSEM 2*0 #028 FW6120 •••• AM93/6120 F TRMWARE - PN 03050067-001-002 

J- 

J COMMAND 4X PROCESSOR - NON-BUFFERED READ* SINGLE OR MULTIPLE SECTORS 
% 

% 

? NAME * 

J NBRD 

* function: 

* perform a non-buffered read of single or multiple sectors* 

% 

% INPUT REQUIRED I 

% 'SECCNT' MUST CONTAIN THE NUMBER OF SECTORS TO BE READ 

* 'USPS' AND 'USMA 5 MUSI CONTAIN THE 20- -BIT MAIN MEMORY ADDRESS 
% 

% OUTPUT GENERATED? 

* STATUS BYTE RETURNED TO THE USER* 
£ 

> BIT 

* 7 OPERATION COMPLETE 
? 6 OPERATION FAILED 

% 5 

i * NOT READY (FD1793) 

* 3 WRITE PROTECT 

* 2 2 SIDED DRIVE 
$ 1 

? 

? CALLING SEQUENCE* 

* USER COMMAND ^X WITH BIT 5 OF THE UNIT CODE A ZERO <0)* 
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CP/M MACRO ASSEM 2*0 #029 FN6 120 •- AM9576120 FIRMWARE - PM 05050 067-0 0:1- 02 



NBRD * 



0235 


3E02 




MVI 


A 9 FDMAIN 


0237 


S3343 




OUT 


FDCICR 


0239 


D31D 




OUT 


DMAMC 


023B 


2A1A0C 


NB 


LHLD 
RD10* 


MEMADR 


023E 


CD920B 


Nb 


CALL 


8UDMA2 


0241 


CD3109 




CALL 


ISEEK 


0244 


B7 




GRA 


A 


0245 


C29702 




JNZ 


NBRD50 


0248 


DB14 




IN 


DMAAR2 


024 A 


6F 




MOV 


.... 9 A 


024B 


DB14 




IN 


DMAAR2 


024D 


67 




MOV 


H v A 


024E 


2222 DC 




3HLD 


RTADDR 


0251 


3E0B 




MVI 


A 9 ENACH2 


0253 


D31F 




OUT 


DMAAMR 


0255 


CDD70A 




CALL 


READ 


0253 


47 




MOM 


B f A 


0259 


3A240C 




LDA 


DMAHU 


025C 


5..'/ 




ORA 


A 


025D 


FA8902 




JM 


NBRD40 


0260 


73 




MOV 


A v B 


0261 


B7 




ORA 


A 


0262 


CA7202 




Jl 


NBRD30 




CDFE03 




CALL 


RWRT 


0268 


B7 




ORA 


A 


0269 


C29702 




JNZ 


NBRD50 


026C 


2A220C 




LHLD 


RTADDR 


026F- 


C33E02 


N!:: 


JMP 


NBRD1 




JRD30S 




0272 


CD2E09 
!::<■;- 




CALL 


NEXT 


it /:../ -.J 
0276 


CA9C02 




Ut \l-l 


NBRD60 


0279 


73 




i l : .J V 


A 9 B 


027A 


B7 




GRA 


Pi 


027B 


C29702 




JNZ 


NERDS 


027E 


3A10 0C 




LDA 


8ECI...EN 


0281 


03 15 




our 


DMAWC2 


0233 


AF 




XRA 


t"i 


0234 


D315 




OUT 


DMAWC2 



JSET MEMORY CONTROL* 

J -DISK TO MAIN* 

? RESET THE DMA CONTROLLER* 



? SET-UP THE: DMA CONTROLLER * 

?SEE IF INTERNAL SEEK IS NECESSARY* 
*NAS THERE AN ERROR? 
J YES? ABORT* 

/. *••• A 1 !•"■ fM ll"tl"«P"y «•¥• 

* 3HVC. ^UIM'kCH J 

p -VALUE OF 

? DMA ADDRESS 

t -IN CASE 

5 RETRY REQUIRED* 

J ENABLE THE DMA CONTROLLER * 
2 PERFORM THE SECTOR READ * 



*DID THE DMA GET HUNG-UP? 
% YES 9 ABORT * 

*NAS THERE A READ ERROR? 

»NO* CONTINUE* 

5YESy DO RETRY ANALYSIS* 

JDO RETRY? 

£NOs> ABORT* 

% YES v 



? POINT TO NEXT SECTOR? DECREMENT COUNT* 
* DO ANOTHER SECTOR? 
?NO? DONE* 

?DID 'NEXT* DETECT AN. ERROR? 
JYESy ABORT* 
j Nl) y RELOAD 
t ■■■■WORD COUNT 

? FOR NEXT 

? DMA* 



CP/M MACRO ASBI : M 2*0 



0286 C34:!.02 

0289 21090C 
028C 7E 
028D P603 
023F 77 

0290 210A0C 

0293 7E 

0294 F604 

0296 77 

0297 3E10 
0299 3208 0C 

029C CD270B 
029F 47 
02A0 3A080C 
02 A3 £610 
02 AS 78 
02A6 CAAB02 
02A9 F'640 

02AB C9 



/.'. 


,0 


#030 


FW6120 •- 






JMP 


NBRD20 


NB 


RD40 * 










LXI 


l-l 9 UCC 






MOV 


AjfM 






ORI 


i li";f;DnA 






MOV 


M y A 






LXI 


HjUSTAT 






MOV 


A y M 






ORI 


USTDMA 






MOV 


MvA 


NB 


:RD50S 










MVI 


AyCCCNBF 






Si A 


CCC 


NB 


|RD6GS 










CALL 


STATXX 






MOV 


B»A 






IDA 


CCC 






ANI 


CCCNBR 






MOV 


A»B 






JZ 


NBRD70 






ORI 


OPFAIL 


NF. 


iRD70i 


RET 
PAGE 





AM9576:i.20 FIRMWARE -• PU 05050 067-0 1-u 02 
t'OO NEXT' SECTOR* 



£SET COMMAND IDENTIFIER* 
J GET DEVICE STATUS* 

SWAS THERE A NON -BUFFERED READ ERROH 

?NG» EXIT* 

JYESy SET OPERATION FAILED BIT* 



CP/'M MACRO ASSEH 2*0 #03:!. FW6I20 - AM95/&120 FIRMWARE - PN 05050 067-0 01-0 02 

r# >Oi >K ft: & >K & >K & >K #/& & X< JO^ 

* COMMAND 8X PROCESSOR - NON "--BUFFERED WRITE* SINGLE OR MULTIPLE SECTORS 

£ 

? NAME J 

£ N8WT 

i FUNCTION! 

i PERFORM A NON-BUFFERED WRITE OF SINGLE OR MULTIPLE SECTORS* 

t INPUT REQUIRED* 

% 'SECCNT* MUST CONTAIN THE NUMBER OF SECTORS TO BE READ 

% 'USPS' AND 'USMA' MUST CONTAIN THE 20 -BIT MAIN MEMORY ADDRESS 

% 

% OUTPUT GENERATED! 

% STATUS BYTE RETURNED TO THE USER* 

% 

% BIT 

* 7 OPERATION COMPLETE 
% 6 OPERATION FAILED 

% 5 

* *h NOT READY (FD1793) 
» 3 WRITE PROTECT 

? 2 2 SIDED DRIVE 

5 1 

* 
? 

? CALLING SEQUENCE* 

t USER COMMAND 8X WITH BIT 5 OF THE UNIT CODE A ZERO ( ) * 

PAGE 



OP/M MACRO ASSEM 2 ♦ 



#032 



FW6120 



AM95/6I20 FIRMWARE 



PN 05050 067-0 1-0 02 



NBWT * 



02 AC 


3E02 


MVI 


A v FDMAIN 


02AE 


i:x;bb 


OUT 


FDCICR 


02B0 


D31D 


our 


DMAMC 


02B2 


2A1A0C 


LHLD 
NBWT 1 OS 


MEMADR 


02B5 


CDABOB 


CALL 
NBWT20*' 


SUDMA3 


02B8 


CDS 109 


CALL 


ISEEK 


U2BB 


B7 


ORA 


A 


02BC 


C20E03 


JNZ 


NBWT50 


02BF 


DB16 


m 


DMAAR3 


02C1 


6F 


MOV 


L y A 


02C2 


DB16 


IN 


DMAAR3 


02C4 


67 


MOV 


H y A 


02C5 


oo'T'Tnr 


SHLD 


RTADDR 


02C8 


3E07 


MVI 


A y ENACH3 


02CA 


D31F 


OUT 


DMAAMR 


02CC 


CDFF0A 


CALL 


WRITE 


02CF 


47 


MOV 


By A 


02D0 


3A240C 


I...DA 


DMAHU 


02D3 


B7 


ORA 


A 


02i:H 


FA00 03 


JM 


NBWT40 


02D7 


78 


MOV 


A»B 


02D8 


B7 


ORA 


A 


02D9 


CAE902 


JZ 


NBWT30 


02DC 


CDFE08 


CALL 


RWRT 


02DF 


B7 


ORA 


A 


02E0 


C20E03 


JNZ 


NBWT50 


02E3 


2A220C 


LHLD 


RTADDR 


02E6 


C3B502 


JMP 
NBWT30 5 


NBWT 10 


02E9 


CD2E09 


CALL 


NEXT 


02FC 


B7 


ORA 


At 


02ED 


CA1303 


JZ 


NBWT60 


02F0 


78 


MOV 


A v B 


02F1 


B7 


ORA 


A 


02F2 


C20E03 


JNZ 


NBWT50 


02F5 


3A10 0C 


I...DA 


seclen 


02F8 


D317 


OUT 


DMAWC3 


02FA 


AI- 


XRA 


A 


02FB 


DS:'!// 


OUT 


DMAWC3 



? set mi;;: mory control * 

$ -MAIN TO DISK* 

PRESET THE DMA CONTROLLER 



? SET-UP THE DMA CONTROLLER* 

?SEE IF" INTERNAL SEEK IS NECESSARY* 
J WAS THERE AN ERROR? 
SYESy ABORT* 
5 SAVE CURRENT 
J -VALUE OF 

t DMA ADDRESS 

> IN CASE 

* RETRY REQUIRED * 

* ENABLE THE DMA CONTROLLER* 
? PERFORM THE SECTOR WRITE* 



J DID THE DMA GET HUNG-UP? 
?YESy ABORT* 

?WAS THERE A WRITE ERROR? 

SNOy CONTINUE* 

*YES> DO RETRY ANALYSIS* 

*DO RETRY? 

£NOy ABORT* 

* YES y 



? POINT TO NEXT SECTOR y DECREMENT COUNT 
»DO ANOTHER SECTOR? 
SNOy DONE* 



J DID 'NEXT' DETECT AN ERROR? 
JYESy ABORT* 
*HQr RELOAD 
S --WORD COUNT 

* FOR NEXT 

* DMA * 



P/M MACRO ASSi 


;:h } 


:*0 




#033 


FW6120 -••• 


02FD 


C3B302 


Nil. 


:WT 


'♦OS 


JMP 


NBWT20 


030 


21090C 








LXI 


H 9 UCC 


0303 


7£ 








MOV 


A ? M 


G3(H 


F6 03 








ORI 


UCCDMA 


0306 


77 








MOV 


M?A 


0307 


210A0C 








LXI 


HpUSTAT 


030 A 


7E 








MOM 


A?H 


03013 


F604 








ORI 


U8TDMA 


030D 


7/ 


Nil 


:WT 


50 t 


MOV 


M 9 A 


03 0E 


3E03 








MVI 


A?CCCNBW 


0310 


32030C 








STA 


CCC 






NBWT&OJ 






0313 


CD270B 








CALL 


STATXX 


0316 


*Y7 








MOV 


By A 


0317 


3A030C 








LDA 


CCC 


031 A 


E608 








ANI 


CCCNBW 


03 IC 


78 








MOV 


A 9 B 


031 D 


CA2203 








JZ 


NBNT70 


0320 


F6^0 








ORI 


OPFAIL 






NE 


SWT7QJ 






0322 


C9 








RET 

page: 





AM95/6120 FIRMWARE ••- PH 05050 067-0 01-00; 
*DQ NEXT SECTOR* 



J SET COMMAND IDENTIFIER, 
% GET DEVICE STATUS* 

*HAS THERE A NON-BUFFERED WRITE ERROR? 

>NG* EXIT* 

JYESy SET OPERATION FAILED BIT* 



CP/M MACRO ASSEM 2*0 #03'* FW6120 •- AM95/6120 FIRMWARE! •- FN 05050 067-0 01 -0 02 

J >K >K )K >K )K X< ){< >K >K ^ >K >K )K >K X< )K >K aK JK >«< S< >K >K >K )K 

? COMMAND ^X PROCESSOR - BUFFERED READ* SINGLE OR MULTIPLE SECTORS 
? 

% 

% NAME S 

* BRD 

* function? 

* perform a buffered read of single or multiple sectors* 

% input required: 

» ■ seccnp must contain the number of sectors to be read 

5 'usps' and 'usma* must contain the 20-bit main memory address 

£ 

J OUTPUT GENERATED! 

* STATUS BYTE RETURNED TO THE USER: 
$ 

t BIT 

i 7 OPERATION COMPLETE 

> 6 OPERATION FAILED 

% 5 

% 4 NOT READY (FD1793) 

% 3 WRITE PROTECT 

% 2 2 SIDED DRIVE 

J 1 

* 

A 

9 

t CALLING SEQUENCE: 

» USER COMMAND 4X WITH BIT 5 OF THE UNIT CODE! A ONE < 1 > * 

£ >k &:*&;* >k xx >k & & & :« & ;« ;o< 
PAGE 



CP/M MACRO ASSEM 2*0 



:035 FN6120 •• AM9S/6120 FIRMWARE! - PN 05050 067- -0.01-002 



BROS 



0323 3A:i. IOC 

0326 4F 

0327 060 
0329 1;1620C 
032C 2A1AGC 
032F CQ690B 
0332 3A120C 
0335 321 3 0C 



0338 CDS 109 
033B B7 
033C C2A303 
033F 3E0 
03-91 D343 

0343 23.620C 
0346 CD920B 

0349 3E0B 
034B D31F 
034D CDD70A 

0350 B7 

0351 CA5E03 
0354 CDFE0O 

0357 B7 

0358 C2A803 
035B C34303 



L..IJH 

MOV 

MVI 

LXI 

LHLD 

CALL 

LDA 

STA 



BHL. 

CyA 

B y 

D y BUFF' 

MEMADR 

SUDHAO 

BMCM 

BMCW 



* SET -UP THE DMA CONTROLLER* 
* INITIALIZE BURST MODE COUNT 
£ READ 1 SECTOR FROM THE DISK INTO 'BUFF' 



BRD10 



BRD20 



CALL 

ORA 

JNZ 

MVI 

OUT 

LXI 

CALL 

MVI 

OUT 

CALL 

ORA 

JZ 

CALL 

ORA 

JNZ 

JMP 

PACK 



ISEEK 

A 

BRD60 

AyFDBUFF 

FDCICR 

H y BUFF 

SUDMA2 

A 9 ENACH2 

DMAAMR 

READ 

A 

BRD30 

RWRT 

A 

BRD60 

BRD20 



J SEE IF INTERNAL SEEK IS NECESSARY 

*WAS THERE AN ERROR? 

> YES y ABORT * 

5 SET MEMORY CONTROLS 

t -DISK TO 'BUFF* * 



5 SET-UP THE DMA CONTROLLER* 

% ENABLE THE DMA CONTROLLER* 
% PERFORM THE SECTOR READ * 
J WAS THERE A READ ERROR? 
£NO? CONTINUE* 
SYESy DO RETRY ANALYSIS* 

* DO RETRY? 

$ NO 3? ABORT * 

* YES 9 



CP/M MACRO ASSEM 2 ♦ 



FW6120 -• AM95/6120 FIRMWARE •■- PN 05050 067 -0 0:1.-0 02 



MOVE THE 



UH i t'-i i i\LM' 



:;:ui 



TO THE HOST MEMORY 



i;RD30 



035E 


3ECH 


MVI 


Ay BF MAIN 


0360 


D3*r8 


OUT 


FDC'ICR 


0362 


3E01 


MVI 


Ay MEM HEM 


036^ 


D313 


OUT 


DMACR 




BR 


\y\ o x 




0366 


AF 


XRA 


H 


0367 


3E(W 


MVI 


A 9 ' : i 


0369 


0319 


OUT 


DMARR 


036B 





NOP 




036C 





NOP 




036D 


00 


NOP 




036E 


87 


ORA 


A 


036F 


FA9A03 


,JM 


BRD50 


0372 


CD5804 


CALL 


BRWX1 


0375 


B7 


ORA 


A 


0376 


C26603 


JNZ 


BRIiHO 


0379 


CD2E09 


CALL 


NEXT 


037C 


B7 


ORA 


A 


037D 


CAAD03 


JZ 


BRD70 


0380 


73 


MOV 


A*B 


0331 


B7 


ORA 


A 


0382 


C2A303 


JNZ 


BRD60 


0385 


21620C 


LXI 


H v BUFF 


0388 


7D 


MOV 


A 9 L 


0339 


D310 


our 


DMAAR0 


033B 


7C 


MOV 


A y H 


033C 


D310 


OUT 


DMAAR0 


038E 


CD60(W 


CALL 


BRWX2 


0391 


3AI20C 


i...DA 


BMCM 


039*1 


32130 C 


STA 


BMCN 


0397 


C33803 


JMP 


BRDxu 




BRD50* 




039 A 


21090C 


LXI 


H 9 UCC 


089D 


7E 


MOV 


A y M 


039E 


F6 03 


uki. 


UCCDMA 


03A0 


/ / 


MOV 


M y A 


03A1 


210A0C 


LXI 


i-bUSTAT 


03A^ 


7E 


MOV 


A y M 



♦ SET MEMORY CONTROLS 
£....> BUFF > T0 HAIN* 



* WRITE THE DMA COMMAND REGISTER* 

♦ CLEAR ! MINUS ! FLAG * 

♦ISSUE SOFTWARE DMA REQUEST* 

♦ THE DMA 

? -TRANSFER SHOULD 

% OCCUR HERE * 

♦DID THE DMA GET HUNG-UP? 

♦YES? ABORT* 

♦IS ANOTHER BURST 

♦ ••OF DATA REQUIRED? 

♦ YESy DO ANOTHER* 

♦POINT TO NEXT SECTOR y DECREMENT COUNT 
♦DO ANOTHER SECTOR? 
♦NOy DONE* 

♦DID 'NEXT' DETECT AN ERROR? 

♦ YES y ABORT * 

♦RELOAD 
♦ -ADDRESS 

♦ FOR 

♦ CHANNEL 0* 

♦RELOAD DMA WORD COUNTS FOR CH & 1 ♦ 

♦ INITIALIZE BURST" MODE COUNT * 
♦DO NEXT SECTOR* 



CP/M MACRO ASSEM 2*0 

03 AS F61W 
Old A/ /'/ 



03A8 3E(H 
03AA 320 30C 

03AD CD270B 
03B0 ^7 
03B1 3A080C 
03IM E6(H 
03B6 78 
03B7 CABC03 
03BA Fo^tu 

G3BC C9 



2*0 


#037 


FW6120 




QRI 


U3TDMA 




MOV 


M ? A 


BRD60* 








MUX 


A 9 CCCBR 




STA 


CCC 


BRD70* 








CALL 


STATXX 




MOV 


B y A 




LDA 


CCC 




ANI 


CCCBR 




MOV 


A^B 




JZ 


BRD80 




OR I 


.— it". I—" JL. -VI 

ur r Hxi... 


BRD80 1 


RET 

page: 





AM95/6120 FIRMWARE: - Phi 05050 067-0 1-0 02 



? SET COMMAND IDENTIFIER* 

J GET DEVICE STATUS* 

?WAS THERE A BUFFERED READ ERROR? 

?NO? EXIT* 



CP/M MACRO ASSEM 2*0 #038 FW6120 ■•■■ AM95/6120 FIRMWARE •■•■ PN 05050 067-0 01.--0 02 

J >k jk #. »: :* >k >k »: *: m w. :*: k m w, >k >k x< jk >k >x »: »: >k )kjk x< jx & >k >k >k >k >k sk w. #, >k >k sk >k >k x< jk ;k m >k >k x<: >k w. s-k & x< >k >k x< m< jk >k jsok :#. m xc >k & ;k >k & >s: 
s COMMAND SX PROCESSOR - BUFFERED WRITE » SINGLE OR MULTIPLE SECTORS 
? • >k ;o< & & .* >o< ft & ;& ;o; >k:^ 

i NAME * 
? BWT 

■; function; 

j perform a buffered write of' single or multiple sectors 

t- 

t INPUT REQUIRED I 

% 'SECCNT' MUST CONTAIN THE NUMBER OF SECTORS TO BE WRITTEN 

i 'USPS' AND ' USMA f MUST CONTAIN THE 20-BIT MAIN MEMORY ADDRESS 

? 

* OUTPUT GENERATED? 

* STATUS BYTE RETURNED TQ THE USERS 



*• 


BIT 




r 


7 


OPERATION COMPLETE 


* 


6 


OPERATION FAILED 


? 


5 





* 


4 


NOT READY (FD:i.793> 


* 


3 


WRITE PROTECT 


? 


2 


2 SIDED DRIVE 


9 


J. 














* CALLING SEQUENCE! 

* USER COMMAND 8X WITH BIT 5 OF THE UNIT CODE A ONE CD* 

PAGE 



CF'/M MACRO ASSEM 2*0 



#03* 



"W6:i.20 



AM95/6:I.20 FIRMWARE 



F'N 05050 067 -0 0:1.-0 02 



BWT 



03BD SAX IOC 
03C0 W 
03C3. 060 
03C3 2A1A0C 
03G6 EB 
03C7 21620C 
03CA CD690B 
03CD 3A120C 
03D0 32130C 



LDA 


BML 


MOU 


C y A 


MUX 


& 9 


LHLD 


MEMADR 


XCHG 




LXI 


H 9 BUFF 


CALL 


SUDMAO 


LDA 


BMCM 


STA 


BMCW 



S SET-UP THE DMA CONTROLLER* 
J INITIALIZE BURST MODE COUNT 



♦ MOVE THE DATA FROM THE HOST MEMORY TO 'BUFF' 







BWTICU 






03D3 


3E06 




MUX 


A y MAINBF 


03D5 


D348 




OUT 


FDCICR 


03D7 


3E01 




MVI 


A 9 MEMMEM 


03D9 


D313 


BWT2GJ 


OUT 


DMACR 


03DB 


AF 




XRA 


A 


03DC 


3E0* 




MUX 


A 9 *\ 


03DE 


D319 




OUT 


DMARR 


03E0 







NOP 




G3E1 







NOP 




03E2 







NOP 




03E3 


B7 




ORA 


A 


Q3EA 


FA35(H 




JM 


BWT SO 


03E7 


CD5SHH 




CALL 


BRWX1 


03EA 


B7 




ORA 


A 


03EB 


C2DB03 




JNZ 
PAGE 


BWT20 



♦ SET MEMORY CONTROL * 

♦ -MAIN TO ' BUFF ! * 



♦ WRITE THE DMA COMMAND REGISTER 

♦ CLEAR 'MINUS' FLAG* 

♦ISSUE SOFTWARE DMA REQUEST* 
♦THE DMA 

♦ ••TRANSFER SHOULD 
♦ OCCUR HERE* 

♦DID THE DMA GET HUNG-UP? 

% YES 9 ABORT * 

♦IS ANOTHER BURST 

♦ •-OF DATA REQUIRED? 
♦YES? DO ANOTHER* 



OP/H MACRO ASSEM 2 * 



#04 



FW6120 •■■■ AM95/6120 FIRMWARE - PN 03030 Q67-0 01-0 02 



03EE CD810? 
03F1 B7 
03F2 C24304 
03F5 3E0 
03F7 D348 

03F9 21620C 
03FC CDABOB 
03FF 3E07 
(HOI D31F 
0403 CDFFOA 

0406 B7 

0407 CA1404 
040 A CDFE03 
(HOD B7 

04 OE C24304 
0411 C3F903 



0414 


CD2E09 


0417 


B7 


0413 


CA4804 


04 IB 


78 


04 1C 


B7 


04 ID 


C24304 


0420 


2 1620 C 


0423 


70 


0424 


D312 


0426 


7C 


0427 


D312 


0429 


CD60 04 


042C 


3A120C 


042F 


321 30C 


0432 


C3D303 


0435 


21090C 


0438 


7E 


0439 


F6 03 


043B 


// 


u-i\:ji.. 


2. 1 A C 



* write: i sec 

CALL 

GRA 

JNZ 

MVI 

OUT 



TOR ON THE DISK FROM 'BUFF' 



i::=i,.rr ':>») <• 



BWT4Q 



BWT50 



lx:i: 

CALL 

MVI 

OUT" 

CALL 

ORA 

JZ 

CALL 

ORA 

JNZ 

JMP 

CALL 

ORA 

JZ 

MOV 

ORA 

JNZ 

LXI 

MOV 

OUT 

MOV 

OUT 

CALL 

LDA 

STA 

JMP 

LXI 
MOV 
ORI 
MOV 
LXI 



isih:ek 

A 

BWT60 

A y F DBUFF 

FDCICR 

H .» BUFF 

SUDMA3 

A * EN ACH2 

DMAAMR 

WRITE 

A 

BWT40 

RWRT 

A 

BWT60 

BWT30 

NEXT 

A 

BWT70 

A ? B 

A 

BWT60 

i-UBUFF 

A*L 

DMAAR1 

A*H 

DMAAR1 

BRWX2 

BMCM 

BMCW 

BWT10 

M v UCC 

A ? M 

UCCDMA 

M?A 

H v UST AT 



SSEE IF INTERNAL SEER IS NECESSARY* 

2 WAS THERE AN ERROR? 

?YES> ABORT* 

JSET MEMORY CONTROL* 

J --'BUFF' TO DISK* 



f SET-UP THE DMA CONTROLLER * 

% ENABLE THE DMA CONTROLLER ♦ 
.PERFORM THE SECTOR WRITE* 
% WAS THERE A WRITE ERROR? 

* NO? CONTINUE* 

*YES* DO RETRY ANALYSIS* 
*DO RETRY? 
JNOv ABORT* 

* YES y 

p POINT TO NEXT SECTOR? DECREMENT COUNT* 

* DO ANOTHER SECTOR? 
mo 9 DONE* 

JDID 'NEXT 1 DETECT AN ERROR? 
$ YES? ABORT* 

> RELOAD 
$ -ADDRESS 

$ FOR 

J -CHANNEL 1* 

* RELOAD DMA WORD COUNTS FOR CH & 1* 

? INITIALIZE BURST MODE COUNT* 
*DO NEXT SECTOR* 



CP/M MACRO ASSEM 2*0 



#041 



FW612G - AM95/6120 FIRMWARE - PN 05050 067 -00 1-0 02 



043F 


7E 




MOM 


A •? M 


0440 


F604 




ORI 


USTDMA 


0442 


77 


BWT60 J 


MOV 


M y A 


0443 


3E02 




MUX 


A y CCCBN 


0445 


32030C 


BWT70* 


STA 


CCC 


0448 


CD270B 




CALL 


STATXX 


044B 


47 




MOM 


15 v A 


044C 


3A080C 




LDA 


CCC 


044F 


E602 




ANI 


CCCBW 


0451 


/ re 




MOM 


A 9 B 


0452 


CAb/04 




JZ 


BWT80 


455 


F640 


BWT80* 


ORI. 


OPFAIL 


0457 


C9 




RET 
PAGE 





J SET COMMAND IDENTIFIER* 
JGET DEVICE STATUS* 

J WAS THERE A BUFFERED WRITE ERROR? 

J NO* EXIT* 

»YES? SET OPERATION FAILED BIT* 



CP/M MACRO ASSEM 2*0 



■042 



FW6120 •■•■ AM95/6120 FIRMWARE •••■ PN 05050067 ■001 002 



J 5K >k >k * * * * >o; & >k &: & >k & *: :r^ 

» special support routine for buffered read/write commands 







£)k>sok;*:>k>k: 


&MMMM 


:>!c>k>k)k»c)k»:>K)kjk: 






brwxi : 






0453 


AF 




XRA 


A 


0459 


21130C 




LXI 


H 9 BMCW 


045C 


35 




OCR 


M 


045D 


CA70 04 


BRWX2* 


JZ 


BRWXI 1 


0460 


3 A1I0C 




LDA 


BML.. 


0463 


47 




MOV 


By A 


0464 


D311 




OUT 


DMAWC0 


0466 


AF 




XRA 


A 


0467 


D311 




OUT 


DMAWC0 


0469 


78 




MOV 


A>B 


046 A 


D313 




OUT 


DMAWC1 


046C 


AI- 




XRA 


A 


046D 


DS 13 




OUT 


DMAWC1 


046F 


2F 


BRWXI 1 t 


CMA 




0470 


C9 




RET 
PAGE 





K>K:«j«>K:iK:«X<>K:!OJ}K}K)KX<)K)K:0<^ 



? DECREMENT WORKING BURST COUNTER ♦ 
tDONE WHEN COUNT EXHAUSTED* 



% RELOAD 

% "WORD COUNT 

% — FOR 

? CHANNEL.. ♦ 

f RELOAD 

J -WORD COUNT 

i — FOR 

? CHANNEL 1* 

£»A' = FF ~ DO ANOTHER BURST* 



DOWN-LOAD AND EXECUTE USER CODE 



CP/M MACRO ASSEM 2*0 #043 FW6120 - AM95/6120 FIRMWARE - FN 05050 067-0 01-0 02 

* COMMAND CX PROCESSOR - USER PROGRAM EXECUTE 
% 

* NAME I 

i UXEC 
% 

% FUNCTIONS 

* I- 

* 

? INPUT REQUIRED* 

* VSECCNT' MUST CONTAIN THE NUMBER OF 64-BYTE BLOCKS TO DOWN-LOAD 

* R0f Rh AND R2 MUST CONTAIN THE 20 -BIT MAIN MEMORY ADDRESS 

» A MAXIMUM OF 10 64-BYTE BLOCKS MAY BE DOWN-LOADED TO ONBOARD RAM! 

? OUTPUT GENERATED* 

% ANY STATUS REGISTER VALUES REQUIRED BY THE USER MUST BE PROVIDED 

* BY THE DOWN-LOADED CODE ONCE IT IS ACTIVE!* 

% CALLING SEQUENCE* 

% USER COMMAND CX 

UXEC X 

0471 3A1C0C LDA SECCNT J MULTIPLY 

0474 6F MOV LvA J -BLOCK 

0475 260 MVI i-b %- COUNT 

0477 29 DAD H % BY 64 

0478 29 DAD H * -TO 

0479 29 DAD H % GET 

047A 29 DAD H % DMA 

047B 29 DAD H % - TRANSFER 

047C 29 DAD H % ■ LENGTH* 

047D 2B DCX H J DMA COUNT MUST BE COUNT- 1 * 

047E 4D MOV C*L 

047F 44 MOV B*H 

0480 2A1A0C LHLD MEMADR 

0483 EB XCHG 

0484 2180 0D LXI H»U3ER 

0487 CD690B CALL 8UDMA0 * SET-UP THE DMA CONTROLLER* 



CP/M MACRO ASSEM 2*0 



#0"M 



FW6I20 - AM95/6120 FIRMWARE ■- Ptt O^OIij 67- 1-002 



0'*8A 
O^SC 
0<*8E 
0**90 
0**92 
0-W3 
0*m 



3E06 

i:ma 



3E0** 

D319 







0^95 CDB00D 
0**98 C3AE08 



MM I 


A v MAINBF 


OUT 


FDCICR 


MUX 


Afl 


OUT 


DMARR 


NOP 




NOP 




NOP 




CALL 


USER 


JMP 


BDRSET 
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♦SET MEMORY CONTROL J 
* "MAIN TO ! USER ' * 

% ISSUE SOFTWARE DMA REQUEST' ♦ 

% THE DMA 

» -TRANSFER SHOULD 

% OCCUR HERE. 

% GOTO THE DOWN -LOADED CODE * 
♦TAKE IT FROM THE TOP. 
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* 

» SELECT COMMAND PROCESSOR FOR COMMANDS THRU 63 

i 

MI3C* 

049B 3AAE04 LDA MCATL ?IS THE SPECIFIED COMMAND 

q^9|::; gg; QHP E J -"CURRENTLY SUPPORTED 

n^op 3jr^o HVI AsOPREJ *- BY THE FIRMWARE? 

(HA1 D8 RC ■ >NO* COMMAND REJECTED, 

04A2 160 MVI D*Q SYES* FORM COMMAND CODE 

04A4 21AFIH LXI H?MCAT J-INTO 

,..,....-•,• .. .-. !•-,/•. r\ r\ i II IMP TAP! i»" 

U*?R/ .J.T S./P1L/ i./ * ww... - 

04 AS 19 DAD D * -INDEX* 

04A9 5E MOM E*M * FETCH 

04AA 23 INX H J -JUMP 

04AB 56 MOM D?M * VECTOR. 

04 AC EB XCHG *H/L - A (COMMAND PROCESSOR)* 

04 AD E9 PCHL *GO TO COMMAND PROCESSOR* 



* MISCELLANEOUS COMMAND ADDRESS TABLE 

04AE 08 MCATL ♦ DB (MCATE--MCAD/2 % NUMBER OF ENTRIES* 

MCAT * 

04AF BF04 DW HOME JO ~ RESTORE SPECIFIED DRIVE* 

04R1 0905 DW SETPAR %\ ^ SET PARAMETERS* 

04B3 3E06 DW STAT %2. ■-■■■■■ RETURN STATUS OF SPECIFIED DRIVE* 

04B5 5906 DW CLRINT *3 ■■■■ CLEAR INTERRUPT TO USER CPU* 

04B7 6206 DW INI! *4 -■■ INITIALIZE DISKETTE* 

(H 39 77oe DW SENSE! *5 •■- RETURN BASIC SENSE GROUP* 

04BB 7E08 DW SENSE2 ?6 ■■- RETURN COMPLETE SENSE GROUP* 

04BD AE08 DW BDRSET %?■ :;;: FORCE BOARD RESET* 

MC ATE % 

PAGE 
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J COMMAND PROCESSOR - RESTORE SPECIFIED DRIVE 

£ NAME * 
J HOME 

* function: 

; perform a restore on the specified drive 

? perform a density check on the specified drive 

i- 

t INPUT' REQUIRED % 

% R0 MUST CONTAIN THE UNIT CODE 

j- 

* OUTPUT GENERATED I 

% STATUS BYTE RETURNED TO THE USER? 

i 

% BIT 

; 7 OPERATION COMPLETE 

% 6 OPERATION FAILED 

% 5 

% •<{ NOT READY (FD1793) 

J 3 WRITE PROTECT 

* 2 2 SIDED DRIVE 

* 1 WRONG DENSITY 
% 

% 

% CALLING SEQUENCE? 

% USER COMMAND 

% SPECIAL CONSIDERATIONS X 

% IF THE 'OPERATION FAILED* BIT IS SET y THE 'WRONG DENSITY' BIT 

J MUST" NOT' BE EVALUATED BY THE USER BECAUSE IT MAY BE INACCURATE! 

\ THIS COMMAND PROCESSOR IS USED BY THE 'INITIALIZE' COMMAND 

% PROCESSOR IN ORDER TO FETCH THE UNIT' CODE* SELECT THE DRIVE y AND 

% PERFORM A RESTORE ON THE SPECIFIED DRIVE* 

I i'-li.Vi... 



CP/'M MACRO ASSEM 2*0 



= 047 



FW6120 



AM95/6120 FIRMWARE 



PN 0505 67" 1 - 2 



HONE X 



04BF 


DB30 






IN 


R0 


04C1 


320 40C 






STA 


UNi. f 


04C4 


CD 1805 






CALL 


SPXX 


04C7 


CDD40B 






CALL 


RS'f SEN 


G4CA 


CDF309 






CALL 


RESTOR 


04CD 


B7 






ORA 


A 


04CE 


C2F104 






JNZ 


HOME20 


04D1 


21060C 






I...XI 


H* TRACK 


04D4 


7E 






MOV 


A 9 M 


04D5 


F5 






PUSH 


PSW 


04D6 


3601 






MUX 


M 9 1 


04D8 


CDS 10 A 






CALL 


SEEK 


G4DB 


47 






MOV 


B?A 


04DC 


Fl 






POP 


PSW 


04DD 


32060C 






STA 


TRACK 


04E0 


78 






MOV 


A?B 


G4E1 


B7 






ORA 


A 


04E2 


CAL/04 






JZ 


HOME 10 


04E5 


3E02 


HOME 


:io* 


MVI 


As» 2 


04E7 


3225 OC 






STA 


HOMEWD 


04EA 


CDF309 






CALL 


RESTOR 


04ED 


B7 






ORA 


A 


04EE 


CAFE 04 


HOME 


:2o * 


JZ 


HOMES 


04F1 


3E30 






MVI 


A r CCCHO 


04F3 


32080C 






STA 


CCC 


04F6 


CD270B 






CALL 


8TATXX 


04F9 


F640 






ORI 


OPFAIL 


04FB 


C30105 


HOME 


:so* 


JMP 


HOME40 


G4FE 


CD270B 


HOME 


:40* 


CALL 


STATXX 


0501 


47 






MOV 


Bs>A 


0502 


3A250C 






LDA 


HOMEWD 


0505 


BO 


HOME 


:so * 


ORA 


B 


0506 


C9 






RET 
PAGE 





J GET UNIT CODE, 

♦ SELECT DRIVE* 

J RESET THE SENSE ERROR BYTES* 

♦ WAS THERE A RESTORE ERROR? 

♦ YES v ABORT * 



2 SAVE USERS TRACK NUMBER* 

J SEE IF SEEK WORKS IN THIS DENSITY 

♦ RESTORE USERS TRACK NUMBER * 

♦ WAS THERE A SEEK ERROR? 

♦ NO 9 

♦ YES? SET ! WRONG DENSITY' BIT* 



♦ WAS THERE A RESTORE: ERROR? 

♦ NO 9 



♦SET COMMAND IDENTIFIER* 

♦GET DEVICE STATUS* 

♦ SET OPERATION FAILED BIT * 



♦GET 'WRONG DENSITY 5 BIT VALUE* 
♦MERGE WITH COMPLETION STATUS* 



CP/M MACRO ASSEM 2*0 #048 FN6120 ••■• AM95/6:i.20 FIRMWARE - PN 05050 067-0 0:1.- 002 



0507 AAAA PI DATA J DW P1.D 
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tPROM :l. FIXED DATA FOR PROM TEST 
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* COMMAND 1 PROCESSOR ■■•• SET PARAMETERS 
% 

% 

t NAME * 






A I 



% FUNCTION J 

* SET PARAMETERS SPECIFIED BY THE USER 
% 

? INPUT REQUIRED * 

% R0 MUST CONTAIN THE UNIT CODE 

% R.l MUST CONTAIN THE TRACK NUMBER (BITS 0--6) 

% R2 MUST CONTAIN THE SECTOR NUMBER (BITS 0--^> 

% R2 MUST CONTAIN THE BURST ENABLE/DISABLE FLAG (BIT 6) 

% R2 MUST CONTAIN THE BURST LENGTH SELECT FLAG (BIT 5) 

* R2 MUST' CONTAIN THE SIDE COMPARE ENABLE/DISABLE FLAG (BIT 7> 
% 

% OUTPUT GENERATED * 

% STATUS BYTE RETURNED TO THE USER* 

>* 

* BIT 

% 7 OPERATION COMPLETE 

i 6 OPERATION FAILED 

i 5 

* 4 NOT READY (FDA 793) 
» 3 WRITE PROTECT 

J 2 2 SIDED DRIVE 

% :i. o 

% 

% CALLING SEQUENCE! 

% USER COMMAND 01 
>' 

* SPECIAL. CONSIDERATIONS* 

* THIS COMMAND PROCESSOR IS USED BY THE FIRMWARE INITIALIZATION 
t ROUTINE IN ORDER TO ESTABLISH A SET OF DEFAULT' PARAMETERS* 

'}• 

% Si "& W. JK >K K< 'M M W. M X. & >K JK M )K >K >K W, JK >K. Hi 3K & & >ji M >K )K >K Xi #C >K 5K )K )K W, M & 3K Si M & 'M >i< Si >K Si >K & ;« Xi 5i< ;K 5K >K >K & & & >K & & >K ft' ft ft ft ft >JC ft 
PAGE 
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SETPAR * 

0509 DB30 IN R0 »GET USER SPECIFIED UNIT CODE, 
050B 32040G ST A UNIT J SAVE IT* 

050E DB31 IN Rl 5 GET USER SPECIFIED TRACK* 

0510 32060 C ST A TRACK SSAVE IT* 

0513 DB32 IN R2 J GET USER SPECIFIED SECTOR* 

0515 32070C ST A SECTOR J SAVE IT* 

* SECONDARY ENTRY POINT (WHEN THIS FUNCTION USED BY THE FIRMWARE) 

SPXXt 

0518 CDD40B CALL RSTSEN PRESET THE SENSE ERROR BYTES* 

05 IB 3A040G LDA UNIT 

? SET DRIVE SELECT' REGISTER 

* 

051E 47 MOV B*A 

051F E60F ANI 0FH J ISOLATE DRIVE* SIDE* AND DENSITY* 

0521 EE08 XRI 8 J COMPLEMENT DENSITY BIT FOR INTERNAL USE* 

0523 4F MOV C*A 

0524 21050C LXI H* DRIVE 

0527 7E MOV A*M 

0528 E630 ANI 30H SSAVE MINI MTR CTRL AND HEAD LOAD* 
052A Bl ORA C * MERGE DENSITY* SIDE* AND DRIVE* 
052B 77 MOV M*A ?SET DRIVE* 

% 

% SET MASTER READ/WRITE RETRY COUNT'S 

» 

052C 78 MOV A?B 

052D 210A06 LXI H* 060 AH ? RETRY COUNTS . (+1 ) * SEEK-6 & RD/WT=i0* 

0530 E610 ANI 10H t ISOLATE RETRY SELECTOR* 

0532 C23805 JNZ SP10 J IF RETRIES ENABLED* SET COUNTS* 

0535 210101 LXI l-bOlOlH t ELSE* SET" 'FALL THROUGH* VALUES* 

spio: 

0538 221d0c shld rdwtrc j set both counters* 

PAGE 
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* SET INTERLACE CONSTANT 

053B 78 
053C 07 
053D E601 ANI 1 * ISOLATE INTERLACE SELECTOR 



MOM 


Ayl 


::■ 


RLC 






ANI 


1 




INR 


A 




STA 


BE! 


:iinc 



053F 3C 

0540 3226 0C STA SECINC JSET INTERLACE CONSTANT (l-ltb 2--2U ) 

* SET INTERRUPT REQUEST FLAG 
t 

0543 78 MUV A?B 

0544 OF RRC 

0545 E620 ANI SYSINT $ ISOLATE INTERRUPT SELECTOR* 

0547 3227 0C STA INTFLG J SET INTERRUPT REQUEST FLAG <0~NO» 1~YES> 

.» 

t BUILD 'READ' AND 'WRITE' COMMANDS 

* 
054 A 78 

054B E604 ANI 4 * ISOLATE 'SIDE 1 BIT 

054D 4F 
054E 3A070C 
0551 E680 ANI 80H J ISOLATE 'COMPARE' BIT 

0553 07 

0554 Bl 

0555 07 

0556 F630 ORI 80H JFORM 'READ SECTOR' COMMAND 
0558 322F0C STA RDIOC J SET IT 

055B F620 ORI 201-1 J FORM 'WRITE SECTOR 1 COMMAND 

055D 3230 DC STA WTIOC J SET IT* 



MOM 


A ? B 


ANI 


4 


MOV 


C>A 


LDA 


SECTOR 


ANI 


80H 


RLC 




OR A 


C 


RLC 




ORI 


BOH 


STA 


RDIOc 


ORI 


20H 


STA 


WTIOC 


.AD/WRl. i 


E SECTOR 


MOV 


A v B 


ANI 
RAL 


8 


RAI... 




RAL 
PAL. 




ADI 


127 


STA 


SECLEN 


PACE 





0560 78 

0561 E608 ANI 8 ? ISOLATE DENSITY BIT 

0563 17 

0564 17 

0565 17 

0566 17 

0567 C67F ADI 127 ? COMPUTE SECTOR LENGTH--! 
0569 321 0C STA SECLEN ?SET SECTOR LENGTH 



CP/M MACRO ASSEM 2 * 



#052 



FW6120 ••■ AM9576120 FIRMWARE -■ PN 05050 0o7- 01-002 



remove: option bits from track and sector 



056C 


3A060C 




L..DA 


TRACK 


056F 


E67F 




AMI 


71- H 


0571 


»:>/:, O C 




STA 


TRACK 


05/4 


3A070C 




L.DA 


SECTOR 


0577 


4F 




MOM 


C y A 


0578 


E61F 




ANI 


IFi-i 


057 A 


32070C 




STA 


SECTOR 






% SET- 


••UP BURST 


COUNT ( 


057D 


"j? o 


* 


MOM 


A .* C 


057E 


E640 




ANI 


40H 


0580 


3A10 0C 




LDA 


SECLEN 


0583 


5F 




MOV 


E*A 


0584 


3E01 




MVI 


A?l 


0586 


CA9C05 




i.*/- 


SP20 


0589 


78 




MOV 


A v B 


058 A 


E60S 




ANI 


3 


058C 


C608 




ADJ. 


8 


058E 


57 




MOU 


D 9 A 


058F 


1E0F 




MVI 


E ? 15 


0591 


79 




MOU 


A*C 


0592 


E620 




ANI 


2 OH 


0594 


7 A 




MOU 


A?D 


0595 


CA9C05 




JZ 


SP20 


0598 


OF 




RRC 




0599 


OF 




RRC 




059A 


1E3F 


SP20S 


MVI 


i:;: ? 63 


059C 


32120C 




STA 


BMCM 


059F 


78 




MOU 


A*E 


05A0 


32 HOC 




STA 
PAGE 


BML 



* GET TRACK PARAMETER * 

H'HROW AWAY UNDEFINED BIT* 

?SET TRACK NUMBER* 

% GET SECTOR PARAMETER* 

SSAVE BURST BITS FOR LATER* 

JTMROW AWAY BURST AND COMPARE BITS 

»SET STARTING SECTOR NUMBER* 



' COUNT <l?2>4s>S?16} AND BURST LENGTH < 128 * 256? 16*64) 



?IS THE BURST MODE ENABLED? 



SNOy SET-UP 1 BURST OF THE MAXIMUM LENGTH* 

t ISOLATE DENSITY BIT * 

$ CALCULATE BASIC BURST COUNT* 

J *D' ~ 8 OR 16* 

? PRE-LOAD 16-BYTE BURST VALUE* 

VIS A 16-BYTE BURST SELECTED? 

SYESy 

mO» DIVIDE BURST 

? -COUNT BY 4* 

» PRE-LOAD 64- -BYTE BURST VALUE* 

S SET' BURST COUNT < 1 ? 2 ? 4 s» 8 » 1 6 > * 

% SET BURST LENGTH < 1 23 v 256 *1 6 * 64 ) , 
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% 

% PERFORM LOGICAL SECTOR TO PHYSICAL SECTOR CONVERSION <IF 2 51) 

% 

% STANDARD SIZE DRIVEL'S 

* LOGICAL 

% 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 IS 19 20 21 22 23 24 25 26 
% 01 03 05 07 09 11 13 15 17 19 21 23 25 02 04 06 08 10 12 14 16 18 20 22 24 26 
% PHYSICAL 

'? 

i MINI SIZE DRIVES 

t LOGICAL 

? tfl ■! fi '"• t\ 'Vt ft jti n r.v t-t / n "y n n fs ,s -t n -i -i .1 ■••■• -t s-. .1 .•• .1 t™ .i .- .= — .• .. .—. 
y '.t .1. w *.. u -.:* w t u v.; u C> U / U O U 7 A U A A A £'.. A *:S A "T A Z> A O A / J. ?3 

* 01 03 05 07 09 11 13 15 17 02 04 06 08 10 12 14 16 18 
t PHYSICAL 

05 A3 78 

05A4 07 RLC J IS THE 1U INTERLACE SPECIFIED? 

05A5 D2C705 JNC SP60 JYES» SKIP 

05A8 AF XRA A ? CLEAR 'CARRY' 

05A9 3A2B0C 

05AC IF 

05AD 30 

05AE 4F 

05AF 3A07QC LDA SECTOR J NO* CONVERT LOGICAL TO PHYSICAL FOR 21:1 

05B2 57 

05B3 B9 CMP C ?IS SECTOR NUMBER IN LOWER RANGE? 

05B4 D2BC05 JNC SP40 J NO* 

05B7 3D DCR A SYES* CONVERT SECTORS 1-13 <l--9> TO 'ODD' 

05B8 82 

05B9 C3C405 

SP4GS 
05BC 3A2B0C 
05BF 3D 

05C0 92 SUB D ? CONVERT SECTORS 14--26 <10--13) TO ' EVFN ' 

05C1 5F 
05C2 7 A 
05C3 93 

SP5CH 

05C4 32070C STA SECTOR J SET PHYSICAL SECTOR NUMBER 



MOV 


A 9 & 


RLC 




JNC 


SP60 


XRA 


A 


LDA 


HJLlK+i 


RAR 




INR 


A 


MOV 


C 9 A 


LDA 


SECTOR 


MOV 


D 9 A 


CMP 


C 


JNC 


SP40 


DOR 


A 


ADD 


D 


JMF' 


SP50 


LDA 


HITK+1 


DUk 


A 


SUB 


D 


MOV 


i::! v A 


MOV 


A 9 D 


SUB 


E 


STA 


SECTOR 
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♦ SET-UP COMMAND JUMP TABLE 



BP60 



05C7 11 AC 02 
05CA 213502 
05CD 78 
05CE E620 
05DO CAD905 
05D3 11 BE) 03 
05D6 212303 

05D9 220 0C 
05DC EB 
05DD 22020C 



SP70* 



LXI 


D y NBWT 


LXI 


H 9 nbrd 


MOV 


A v B 


ANI 


2 OH 


JZ 


BP70 


LXI 


D*BWT 


LXI 


H>BRD 


SHLD 


JMPTAB 


XCHG 




SHLD 


JMPTAB+2 



♦isolate transfer mode selector* 

♦ IF 0y point to non-buffered routines* 

♦ELSE* POINT to buffered routines* 



♦ SET ADDRESS * 
♦ SET ADDRESS * 



♦ SELECT SPECIFIED DRIVE 
♦ 



05E0 CDA209 
05E3 W 
05E^ DB0 
05E6 B7 
05E7 F2EF05 
05EA 0608 
05EC C31E06 

05EF 78 
0SF0 FEFF 
05F2 C20106 
05F5 C5 
05F6 CDF309 
05F9 B7 
05FA CI 
05FB 78 
05FC 06^0 
05FE C21E06 



SPSOt 



SP85: 



0601 FEFE 
0603 C23A06 



CALL 


SELECT 


MOV 


B?A 


IN 


FDCST 


ORA 


A 


JP 


SP80 


MVI 


ByUSTDNR 


JMP 


SP10 


MOV 


AvB 


CPI 


DRNOTA 


JNZ 


SP85 


PUSH 


B 


CALL 


RESTOR 


ORA 


A 


POP 


B 


MOV 


A*B 


MVI 


ByUSTRF 


JNZ 


SP100 


CPI 


DIFFDR 


JNZ 


SP110 


PACE 





♦SELECT THE REQUESTED DRIVE* 

♦ READ FD1793 STATUS* 

♦ IS THE REQUESTED DRIVE READY'? 

♦ YES? CONTINUE* 

♦ABORT* 



♦HAS THE DRIVE EVER BEEN ACCESSED? 

♦ YES? CONTINUE* 

♦ NOv DO RESTORE TO GET THINGS ALIGNED* 
♦WAS THE RESTORE SUCCESSFUL? 



♦ NO y ABORT * 

♦IS THIS A DIFFERENT DRIVE? 
♦ NO* 



CP/M MACRO ASSEM 2*0 #055 FW6120 - AM95/6120 FIRMWARE - FN 05050 067-0 0:1.-0 02 







? 






* Wl 






* Vi 


0606 


212D0C 


>• 


0609 


7E 




060 A 


E6F7 




060C 


77 




060 D 


es 




060E 


CD510A 




0611 


El 




0612 


F5 




0613 


7E 




061^ 


F60B 




0616 


77 




0617 


Fl 




0618 


&7 




0619 


CA3A06 




061C 


0620 





-IEN NEW DRIVE* FORCE FD1793 HEAD LOAD FLAG TO CLEAR* 

i;:rify at end of seek will properly load head with delay 



J REMOVE HEAD LOAD BIT. 
*DG NEW DRIVE SEEK* 



LXI 


H ? ("SEEK 


MOV 


A*M 


ANI 


0F7H 


MOV 


M?A 


PUSH 


H 


CALL 


SEEK 


POP 


H 


PUSH 


PSW 


MOV 


A v M 


ORI 


8 


MOV 


M s» A 


POP 


PSW 


ORA 


A 


JZ. 


SP110 


MVI 


B?USTSF 
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t INSERT HEAD LOAD BIT 



$ WAS THE SEEK SUCCESSFUL? 
♦YES* DONE* 
f- NO 9 ABORT * 
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#056 



W6120 



AM95/6120 FIRMWARi 
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SP 


100* 






06 IE 


210A0C 






I...XI 


HnUSTAT 


0621 


7E 






MOV 


A y M 


0622 


80 






QRA 


B 


0623 


// 






MOV 


My A 


062't 


21080C 






LXI 


HyCCC 


0627 


7E 






MOV 


AyM 


0628 


F6 / M 






ORI 


CCCSE 


062 A 








MOM 


M 9 A 


062B 


2:1.0 9 0C 






LXI 


HyUCC 


062E 


7E 






MOV 


AyM 


062F 


F620 






ORI 


UCCSE 


0631 


77 






MOV 


MyA 


0632 


CD270B 






CALL 


STATXX 


0635 


F6-'}0 






ORI 


OPFAIL 


0637 


C33D06 


SP 


1 1 % 


JMP 


SP120 


063A 


CD270B 


SP 


120 ; 


CALL 


STATXX 


063D 


C9 






RET 
PAGE 





% SET ' SETPAR ' IDENTIFIER * 

J GET DEVICE STATUS* 

* SET OPERATION FAILED BIT 



?GET DEVICE STATUS* 

% RETURN TO THE CALLER* 
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J COMMAND 2 PROCESSOR •- RETURN STATUS OF SPECIFIED DRIVE 

% NAME X 

% STAT 

? 

% FUNCTION * 

% RETURN THE CURRENT STATUS OF THE SPECIFIED DRIVE 

% ORIGINALLY SELECTED DRIVE IS RE -SELECTED 

% INPUT REQUIRED I 

% R0 MUST CONTAIN THE UNIT CODE 

% 

* OUTPUT GENERATED t 

5 STATUS BYTE RETURNED TO THE USER? 

* BIT 

% 7 OPERATION COMPLETE 

% 6 

$■ 5 

t 4 NOT READY (FD1793) 

* 3 WRITE PROTECT 
? 2 2 SIDED DRIVE 
% 1 

* 
t 

STAT I 
063E DB30 IN R0 ?GET UNIT CODE* 

0640 E603 ANI 3 J ISOLATE DRIVE: NUMBER* 

0642 F610 or:i: hdload sset head load enable BIT* 

0644 DSHD OUT DRVSEL 

0646 CD270B CALL STATXX J BORROW 'STATXX' TO GET THE GOODIES* 

0649 47 MOV By A 

064A 3A050C L..DA DRIVE * RESTORE ORIGINAL DRIVE 

064D D34D OUT DRVSEL * ~SEL.EC T REGISTER VALUE, 

064F DB30 IN R0 

0651 OF RRC 

0652 E620 ANI SYSINT ? ISOLATE INTERRUPT SELECTOR* 



CP/M MACRO ASSEM 2*0 



#058 
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065-^ 322? OC 

0657 78 

0658 09 



STA 
MOV 



PAG 



INTFLG 
A v B 



J SET INTERRUPT REQUEST FLAG UJ-NGj. 1.^YES>* 



CP/M MACRO ASSEM 2*0 #059 FW6120 - AM95/612Q FIRMWARE! -• PH 05050 067-0 01 -002 

£>0<SiS:SiS:>XX<SiSiSiSiSiSiSiX<SiSiSi;0<^ 

% COMMAND 3 PROCESSOR - CLEAR HOST INTERRUPT 
? 

£Si&SiSiSiSiSiSiSiSiSiSiSiSiS<SiSim^>KSi&^^ 
f 

% NAMES 

? CLRINT 

f FUNCTION* 

J CLEAR THE FIRMWARE INITIATED « OPERATION COMPLETE f INTERRUPT 

i 

* INPUT REQUIRED? 

% NONE 

J OUTPUT" GENERATED I 

% 

% STATUS BYTE RETURN!;- D TO THE USER: 



? 


BIT 










% 


-r 
/ 


OPE 


:rai 


"ION COMPi 


...L i i::. 


% 


6 











#■ 


5 











% 


^ 











9 


3 

1 
















9 

t CALLING SEQUENCE * 
t USER COMMAND 03 

% Si Si Si )K Si 5K Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si SC Si Si Si Si Si Si Si JK >K Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si >K Si Si Si si Si Si Si Si 

CLRINT % 

0659 AF XRA A 

065 A D348 OUT' FDCICR J CLEAR HOST INTERRUPT, 

065C 2F CM A 

065D 32290C ST A BPI J SET FLAG TO BYPASS INTERRUPT GENERATION 

0660 2F CM A 

0661 C9 RET 
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CP/M MACRO ASSEM 2*0 #060 FW6:I.2G ■■■■ AM95/6120 FIRMWARE - FN 05050 067 -0 01- -0 02 

J & ft X< >K M M >K & >K >K 5K ;K >K M. M >K >K >K >X ;K >K )K iK M >K >K >K >K )K >K >K >K >K >K >K #. >K >K >K >K JK >!< >!< &MMMW.W. >K ;K ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft X< X ft ft 

? COMMAND 4 PROCESSOR -■•• INITIALIZE DISKETTE: 

£ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft^ 

S NAME * 
■> INIT 

* FUNCTION I 

$ INITIALIZE A DISKETTE WITH THE SPECIFIED DENSITY/FORMAT 

* SINGLE DENSITY ~ IBM 3740 FORMAT WITH 128 BYTES/SECTOR 

?' DOUBLE DENSITY =» IBM SYSTEM 34 FORMAT WITH 256 BYTES/SECTOR 

? THE DRIVE TYPE* STANDARD OR MINI* IS DETERMINED BY 'INIT 1 * 

?• 

t INPUT REQUIRED t 

* RO MUST CONTAIN THE UNIT CODE 

J "OUTPUT GENERATED! 

$ STATUS BYTE RETURNED TO THE USER J 

? 

i BIT 

t 7 OPERATION COMPLETE 

* 6 OPERATION FAILED 
■> 5 

J 4 NOT READY (FD. 1.793) 

J 3 WRITE PROTECT 

? 2 2 SIDED DRIVE 

J 1 

? 

* CALLING SEQUENCE X 
% USER COMMAND (W 

* SPECIAL CONSIDERATIONS J 

* THE UNIT CODE SPECIFIED FOR THE INITIALIZE AND DEFAUL.T VALUES 
J OF TRACK 0/SECTOR I ARE SET-UP AS IF SPECIFIED BY A SET 

* PARAMETERS COMMAND ♦ 

% A WRITE PROTECTED DISK WILL. BE REPORTED BY THE INITIAL "HOME" AND NIL 

5 CAUSE THE INITIALIZE COMMAND TO BE ABORTED! 
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CP/M MACRO ASSEM 2 <• 



#062 



FW6:I.20 ••■■ AM95/6120 FIRMWARE - PN 05050 067-0 0:1. -0 



INIT { 



066? 


AF 


0663 


320 6 0C 


0666 


CDBF04 


0669 


E648 


066B 


C27I07 


066E 


3E0 


0670 


D348 


0672 


3A040C 


0675 


4F 


0676 


E604 


0678 


OF 


0679 


OF 


067 A 


3237 OC 


067D 


3A050C 


0680 


3233 OC 


0683 


47 


0684 


E60C 


0686 


FE04 


0688 


78 


0689 


CA8E06 


068C 


F603 



akh 


H 


STA 


TRACK 


CALL. 


HOME 


ANI 


OPFAIL+OPWF 


JNZ 


INIT 55 


mvi 


AH""DBUFF 


OUT 


FDCICR 


L.DA 


UNIT 


MOV 


C v A 


ANI. 


4 


RRC 




RRU 




STA 


SIDE 


LDA 


uRXVfc. 


31 A 


INIDSR 


MOM 


By A 


ANI 


0CH 


CPI 


4 


MOM 


A ? B 


JZ 


INIT 05 


ORI 


3 
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1 FORCE 'TRACK* =«■ 00, 

*GET UNIT CODE* SELECT DRIVE v DO RESTORE 

?WAS THE 'HOME' SUCCESSFUL.!' 

JNOj ABORT* 

* SET MEMORY CONTROL , 

?••••' BUFF' TO DISK* 

*GET USER SPECIFIED UNIT CODE, * 

♦ISOLATE 'SIDE' BIT, 



jsave side;: indicator for later* 

% set dsr value for tracks other than 0* 
j create dsr value for track 0. 

j is double density and side 1 specified? 

% YES 9 

SNO? FORCE SINGLE DENSITY, 



CP/M MACRO ASSEM 2,0 #063 FW6120 - AM9S/6120 FIRMWARE - PH 05050 067-0 01-0 02 



INITO! 



068i;;: dshd 

0690 320 50 C 
0693 E603 
0695 21A807 
0698 11C607 
069B C2A^06 
069E 21B707 
06A1 1105 07 

06 A'* DB48 
06A6 E620 

.-•■ X A. ft {"• •"> A t"> !\ S 

UOHO U/.HUUO 

06AB EB 

06 AC 113B0C 
06AF 060 F 

06B1 7E 
06B2 12 
06B3 23 
06B^ 13 
06B5 05 
06B6 C2B106 
06B9 11620C 
06BC 2A3B0C 
06BF CDF307 
06C2 2A3D0C 
06C5 3A060C 
06C3 77 
06C9 23 
06CA 3A370C 
06CD 77 





OUT 


DRVSEL 




STA 


DRIVE 




ANI 


8 




S...XI 


1-M-SD1 




L..XI 


DpMSDI 




JNZ 


INITIO 




LXI 


HfFDDl 




1...XI 


D*MDD1 


INI 11 2 








IN 


FDCISR 




ANI 


MINI 




K..<\-<S... 


INITIS 




XCHG 




initis: 








LXI 


D* FT ADD! 




MUX 


By 15 


INIT20 X 








MOV 


A * M 




ST AX 


D 




INX 


H 




J..NX 


D 




DCR 


B 




JNZ 


INIT20 




LXI 


D 9 BUFF 




LHLD 
CALL 


FTADDR 
FPU 




LHLD 


TKOS 




LDA 


TRACK 




MOV 


M y A 




INX 


H 




LDA 


SIDE 




MOV 


M 9 Pi 



$ SET DRIVE SELECT REGISTER* 
t ISOLATE ! DENSITY r BIT * 

J IS SINGLE DENSITY SPECIFIED? 

* YES v SKIP » 
t NO 9 

? READ INTERNAL STATUS REGISTER * 

'• re-- i".fi/-..ors u iMi::!i::Di'.:n irnr.» * MTKIT ' "> 

J NO » USE H/L PAIR, 
?YES> USE D/E PAIR* 

* D/E :::: A < DESTINATION ) •> 
t '■ & s ■■■■■ L < MOVE ) * 

* MOVE SPECIFIED CONTROL TABLE 

» —TO THE WORKING RAM LOCATIONS* 



M-iAVi;;: i moved the whole table yet? 

* NO y CONTINUE ♦ 



JFORM PARTIAL TRACK IMAGE (HEADER) 



JSET TRACK NUMBER* 



?SET SIDE NUMBER* 
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CP/M MACRO ASSEM 2*0 



#064 



FW6120 -■■ AM95/6120 FIRMWARE •■•■ PN 05050 067-0 0:1.-0 o; 



INITIALIZE THE DMA CONTROLLER 



06CE 


2A3F0C 


06D1 


03 ID 


06D3 


03 1 C 


06DS 


3E62 


06D7 


D314 


06D9 


3E0C 


06DB 


0314 


06DD 


7E 


06DE 


23 


06DF 


0315 


06E1 


AF 


B6E2 


0315 


06E4 


3E4A 


06E6 


03 IB 


06E8 


7E 


06E9 


23 


06EA 


03.1.6 


06EC 


7E 


06ED 


23 


06EE 


0316 


06F0 


7E 


06l :: " 1 


23 


06F2 


0317 


06F4 


7E 


06F5 


03.1.7 


06F7 


3E5B 


06F9 


03 IB 


06FB 


3E0 


06FD 


0318 


06FF 


3E03 


0701 


03 IF 


0703 




0706 


i :: B 


0707 


3EF0 


0709 


320E0C 


070C 


03 



1...HL0 


OMACB 


our 


DMAMC 


OUT 


OMACBP 


MMI 


A j LOW BUFF 


OUT 


OMAAR2 


MMI 


Ay HIGH BUi : 


OUT 


0MAAR2 


MOV 


A v M 


INX 


H 


OUT 


0MANC2 


XRA 


A 


OUT 


DMAWC2 


MMI 


A?0MA2I1 


OUT 


DMAHR 


MOM 


A?M 


INX 


H 


OUT 


0MAAR3 


MOM 


AyM 


INX 


H 


our 


DMAAR3 


MOM 


A*M 


INX 


H 


OUT- 


DMAWC3 


MOM 


A?M 


OUT' 


DMAWC3 


MM!. 


A>DMA3I2 


OUT 


OMAMR 


MMI 


A v MEMIO 


OUT 


OMACR 


MMI 


AyENAC23 


OUT 


OMAAMR 


SIM 


EI6575 


EI 




MMI 


AyFWTTK 


STA 


FIFLAG 


OUT 


FOCCR 


PAGE 





PRESET THE DMA CONTROLLER* 

? CLEAR THE BYTE POINTER FLIP-FLOP* 

* WRITE LSB OF IMAGE ADDRESS* 

? WRITE MSB OF IMAGE ADDRESS* 

» WRITE LSB OF THE WORD COUNT* 

* WRITE MSB OF THE WORD COUNT* 

5 WRITE THE DMA MODE REGISTER* 

J WRITE LSB OF SECTOR BODY ADDRESS* 

% WRITE MSB OF SECTOR BODY ADDRESS* 



> WRITE LSB OF SECTOR BODY LENGTH ♦ 
% WRITE MSB OF SECTOR BODY LENGTH* 
? WRITE THE DMA MODE REGISTER* 
J WRITE THE DMA COMMAND REGISTER* 
J ENABLE DMA CHANNELS 2 AND 3* 



♦ GET WRITE TRACK COMMAND* 

* SET' INTERRUPT FLAG * 
% ISSUE COMMAND * 



CP/M MACRO ASSEM 2*0 #065 FW6120 - AM95/6120 FIRMWARE - F'H 05050 067-0 01-0 02 

% PERFORM SECTOR-BY-SECTOR UPDATES OF TRACK IMAGE 

?GET HALF SECTOR COUNT* 



070E 


2141 0C 




LXI 


H .* HALFSE 


0711 


5E 




MOV 


E>M 


0712 


16FF 


I.NIT30 * 


MVI 


D»GFFH 


0714 


DB17 




IN 


DMAWC3 


0716 


6F 




MOV 


L 9 A 


0717 


DEI 7 




IN 


DMAWC3 


0719 


67 




MOV 


i-bA 


071A 


19 




DAD 


D 


07 IB 


DA 14 07 




JC 


INIT3G 


071E 


3A420C 




LDA 


LASTSE 


0721 


47 




MOV 


& » A 


0722 


2A3D0C 




LHLD 


TKOS 


0725 


23 




INX 


H 


0726 


23 




INX 


H 


0727 


7E 




MOV 


A?M 


0728 


B8 




CMP 


B 


0729 


CA3707 




JZ 


INIT40 


072C 


34 


INIT35: 


INR 


M 


072D 


DB18 




IN 


DMAS! 


072F 


E603 




ANI 


3 


0731 


CA2D07 




JZ 


INIT35 


0734 


C31407 


INIT40* 


JMP 


INIT30 


0737 


2A430C 




LHLD 


TRALR1 


073 A 


EB 




XCHG 




073B 


2A470C 




LHLD 


TRALR8 


073E 


CDF807 


INIT45S 


CALL 


FPTI 


0741 


DB18 




IN 


DMAST 


0743 


E603 




ANI 


8 


0745 


CA4107 




JZ 


INIT45 


0748 


2A450C 




LHLD 


TRALR2 


074B 


EB 




XCHG 




U/4C 


2A470C 




LHLD 


TRALRS 


074F 


CDF807 




CALL 


FPTI 


0752 


CD350B 




CALL.. 


WAIT 


0755 


B7 




ORA 


A 


0756 


C27B07 




JNZ 


INIT60 



SWAIT FOR DMA TO WRITE HALF SECTOR 



JAM I DOING THE LAST SECTOR RIGHT NOW? 

JYES* GO SET-UP GAP4* 

?NO? INCREMENT SECTOR NUMBER* 



JWAIT FOR END OF CURRENT SECTOR 
*DO NEXT SECTOR* 



SFILL PARTIAL TRACK IMAGE (TRAILER)* 



J WAIT FOR END OF LAST SECTOR ON TRACK* 



?FILL PARTIAL "TRACK IMAGE (TRAILER) 
t WAIT FOR 'END OF TRACK 1 INTERRUPT* 
? ' WAIT ' ERROR? 
* YES ? ABORT * 



OP/M MACRO ASSEM 2 <■ 



#066 



"W< 



AM95/6120 FIRMWARE ■- PH 05050 067-0 0:!. ""0 02 



% POINT TO NEXT TRACK 



0759 


21060C 




LXI 


l-i v TRACK 


075C 


3A490C 




L..DA 


LASTTK 


075F 


BE 




CMP 


M 


0760 


CA9807 




JZ 


INIT80 


0763 


34 




INR 


M 


0764 


CDABOA 




CALL 


STEPI 


0767 


B7 




ORA 


A 


0768 


C28507 




JNZ 


INIT65 


076B 


3A380C 




I...DA 


INID8R 


076E 


C38E06 


INIT55J 


...IMP 


XNIT05 


077:1. 


210A0C 




LXI 


1-bUSTAT 


0774 


7E 




MOV 


A?M 


0775 


F640 




ORI 


USTRF 


0777 


77 




MOV 


Mj»A 


0778 


C33C07 


INIT60S 


JMP 


INIT70 


077B 


2:l.0B0C 




LXI 


HvPCC 


077E 


7E 




MOV 


A?M 


077F 


F6 04 




ORI 


PCCWT 


078:!. 


77 




MOV 


M? A 


0/82 


C38C07 


INIT65 % 


JMP 


INIT70 


0785 


210A0C 




LXI 


1-M.JSTAT 


0/88 


7E 




MOV 


A?M 


0789 


F6 02 




ORI 


USTSI 


07SB 


77 


INIT70J 


MOV 


M?A 


078C 


21090C 




LXI 


H>UCC 


078F 


7E 




MOV 


A*M 


0790 


l :: '610 




ORI 


UCCWT 


0792 


/ / 




MOV 


M » A 


0793 


3E20 




MVI 


A v CCCIN 


0795 


32030 C 


INIT30* 


STA 


CCC 


0798 


CD270B 




CAI...1... 


STATXX 


079B 


47 




MOV 


B v A 


0/VC 


3A030C 




LDA 


CCC 


079F 


E620 




ANI 


CCCIN 


07 Al 


/ K.l 




MOV 


AvB 



2AM I DOING THE LAST TRACK RIGHT NOW? 

* YES * DONE * 

? no 9 increment track number ♦ 
;do step in to next track* 
jwas the step in successful? 

* NO 9 ABORT' * 

J GET DSR VALUE FOR TRACKS OTHER THAN 0* 
SIX) NEXT TRACK* 



SET COMMAND IDENTIFIER* 
GET DEVICE STATUS* 

WAS THERE AN 'INITIALIZE' ERROF 



CP/M MACRO ASSEM 2*0 

07A2 CAA707 
07A5 F640 



07A7 C9 



2*0 #067 


FN6120 


JZ 


INIT90 


OR! 


OPFAIL 


INIT90J 




RET 
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AM95/6120 FIRMWARE - PN 05050 067-0 01 -0 02 
SNOy EXIT* 

»ye:s» set operation failed bit* 



OP/M MACRO ASSEM 



#068 



FW612Q 



AM95/6120 FIRMWARE 



PN 05050 067-0 01-- 02 



#:k>k&>k:«:*>k:jo;>k>x}k>k>k;*}k:^ 

% CONTROL TABLES FOR USE BY INITIALIZE* ONE TABLE IS SELECTED AND 

% MOVED TO WORKING RAM FOR REFERENCE DURING THE INITIALIZE OPERATION* 



5 5K2k:>k>k:«*::#)£iik)k>e>k*:k>K)K}k;k& 



07A8 
07AA 
07 AC 
07AE 
07AF 
07B0 
G7B2 
07B4 
07B6 
07B7 
07B9 
07BB 

V07BD 
07BE 
07BF 
07C1 
07C3 
07C5 
07C6 
G7CS 
07CA 
07CC 
07CD 
07CE 
07D0 
07D2 
07D4 
07D5 
07D7 
07D9 

V07DB 
07DC 
07DD 
07DF 
07E1 



1908 

B20C 

En 07 

A3 

1A 

AB0C 

080D 

4C 

*'H0 8 

040D 

E907 

47 

1A 

F40C 

AD0D 

7008 

4C 

1908 

A6GC 

EE07 

AD 

12 

A10C 

F40C 

3D 08 

4408 

DEQC 

F307 

5A 

12 

D20C 

780D 

70 08 



FSD1 



fddi* 



MSD1* 



MDD: 



DW 


SDFT 


DW 


BUFF+8Q 


DW 


FSD2 


DB 


-93 


DB 


26 


DW 


BUFF+73 


DW 


BUFFM66 


DW 


SDFILL 


DB 


76 


DW 


DDFT 


DW 


BUFF+162 


DW 


FDD2 


DB 


-185 


DB 


26 


DW 


BUFF*- 146 


DW 


BUFF+331 


DW 


DDFILL 


DB 


76 


DW 


SDFT 


DW 


BUFF+A8 


DW 


MSD2 


DB 


••-83 


DB 


18 


DW 


BUFF+63 


DW 


BUFF*- 146 


DW 


SDFILL 


DB 


34 


DW 


DDFT 


DW 


BUFF*- 124 


DW 


MDD2 


DB 


-166 


DB 


18 


DW 


BUFF+11? 


DW 


BUFF+278 


DW 


DDFILL 


ur:.i 





f ADDRESS OF FORMAT TABLE TO USE* 

? ADDRESS OF 'TRACK' BYTE IN SECTOR* 

J ADDRESS OF DMA CONTROL TABLE* 

J HALF SECTOR COUNT* 

J NUMBER OF LAST SECTOR ON TRACK* 

J ADDRESS OF 1ST HALF OF TRAILER* 

.ADDRESS OF 2ND HALF OF TRAILER* 

» ADDRESS OF TRAILER DATA* 

% NUMBER OF LAST TRACK ON MEDIA* 



CP/M MACRO ASSEM 2*0 #069 FW6.1.20 - AM95/6120 FIRMWARE - PN 05050 067-0 01-0 02 

* DMA SET -UP CONTROL BLOCKS 

07E4 48 FSD2* DB 72 JTRACK HEADER LENGTH 

G7E5 ABOC DW BUFF+73 * ADDRESS OF SECTOR BODY* 

07E7 B90 DW 185 5 LENGTH OF SECTOR BODY* 

07E9 91 FDD2* 

07EA F40C 

07EC 7101 

07EE 3E MSD2S 

07EF A 10C 

07F1 A600 

07F3 6F MDD2t 

G7F4 D20C 

07F6 4B01 



DB 


72 




DW 


BUFF 


•i-73 


DW 


185 




DB 


145 




DW 


BUFF 


•Ki.46 


DW 


369 




DB 


62 




DW 


BUFF 


•v-63 


DW 


166 




DB 


111 




DW 


BUFF 


"+112 


DW 


331 
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CP/M MACRO ASSEM 2*0 #070 FW6120 - AM95/6120 FIRMWARE: •- PN 05050 067-0 0:1.-0 02 

? SPECIAL SUPPORT' ROUTINE FOR INITIALIZE 



* 



? NAME J 
; FPTI 

» function: 

t fill partial track image in 'buff' 

* 

j input required^ 

t d/e register pair must contain the a (ram) 

j h/l register pair must contain the a (format table) 

? output generated: 

% 'BUFF' WILL CONTAIN A PORTION OF THE TRACK IMAGE 

% 

} CALLING SEQUENCE: 

t CALL. FPTI 

fpti: 

?get count byte* 

* IS IT THE SPECIAL MARKER? 

J NO* GO GET DATA BYTE* 

PfESy READ INTERNAL STATUS REGISTER* 

;iS BOARD JUMPERED FOR 'MINI'? 

* NO y 



07F8 


7E 








MOM 


AvM 


07F9 


23 








INX 


H 


07FA 


FEFF 








CPI 


0FFH 


07FC 


W 








MOM 


C*A 


07FD 


C20B08 








JNZ 


FPTI20 


0800 


DB48 








IN 


FDCISR 


0802 


E620 








ANI 


MINI 


0804 


4E 








MOM 


C*M 


0805 


23 








INX 


H 


0806 


C20A08 








JNZ. 


FPTI 10 


0809 


4E 








MOM 


C»M 






FP 


Til OS 






080 A 


23 


FP 


Tl: 


20 : 


INX 


H 


080B 


7E 








MOM 


A?M 


080C 


23 


FP 


TI: 


30 : 


INX 


H 


080D 


y: 








ST AX 


Q 



% GET DATA VALUE ♦ 
J FORM FIELD IMAGE 



CP/M MACRO ASSEM 2*0 

080E 13 
08 OF OD 
08:1.0 C20D08 
0813 7E 
081^ B7 
0815 C2F807 
08:1.8 C9 



#071 


FW6120 


XNX 


D 


OCR 


C 


JNZ 


FPTI30 


MOV 


A*M 


ORA 


A 


JNZ 


FP i X 


RET- 




PACE 
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IDONE? 

JNO/ CONTINUE* 

SHAVE I REACHED THE END OF THE TABLE? 
9 NO :•■ CONTINUE * 



CP/M MACRO ASSEM 2*0 #072 FW6120 ■•■• AM95/6120 FIRMWARE - PN 05050067-00I -002 

* TRACK FORMAT TABLE 

? IBM 3740 SINGLE DENSITY TRACK FORMAT WITH 123 BYTES/SECTOR 
* 

SDFT : 
0819 28FF OB 40* OFFH *FF 

08 IB 060 DB 6*0 J 00 

081 D 01FC DB lyOFCH JFC (INDEX ADDRESS MARK) 

081F FF1A10FF DB OFFI-b 26y l6y OFFH JFF (GAP 1) 

* SECTOR BODY REPEATED 26 TIMES 

*00 (GAP 1/GAP 3) 
?FE (ID ADDRESS MARK) 
H'RACK NUMBER (0 0--4C OR 0-22) 
SSIDE NUMBER (00 OR 01) 
J SECTOR NUMBER < 01-1 A OR 01-12) 
?00 

?F7 (2 CRC'S WRITTEN) 
>FF (GAP 2) 
?00 (GAP 2) 

JFB (DATA ADDRESS MARK) 
JDATA (IBM USES E5 = E) 
JF7 (2 CRC'S WRITTEN) 

•FN JFF (GAP 3) 
?FF (GAP 4> 
?END OF TABLE MARKER* 



0323 


FF 06 040 


DB 


0FFHv6y4y0 


0827 


01FE 


DB 


1 yOFEH 


0829 


0100 


DB 


1 y 


082B 


0100 


DB 


1*0 


082D 


0101 


DB 


1 9 1 


082F 


0100 


DB 


1*0 


0831 


01F7 


DB 


1 9 0F7H 


0833 


OBFF 


DB 


11 t OFFH 


0835 


060 


DB 


6,0 


0337 


01FB 


DB 


1 f OFBH 


0839 


30E5 


DB 


128rOE5H 


083B 


01F7 


DB 


lyOF7H 




SD 


FILL* 




083D 


FF1B0AFF 


DB 


OFFHr 27, 10 


0841 


42FF 


DB 


66 y OFFH 


0843 





DB 
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i TRACK FORMAT TABLE! 

!■ IBM SYSTEM 34 DOUBLE DENSITY TRACK FORMAT WITH 256 BYTES/SECTOR 

? 

£ >k >§c « ;oc ;o< &&&:#: >k & ^^ ^ 

DDFT »' 

0844 504E DB 8G»4EH ?4E 

0846 0C 00 DB 12 vQ 5 00 

0848 03F6 DB 3*0F6H ^ : "6 

no-aA nirr no -i .. ni::r-i..i *i::t s / "r^irsirv /\t'M*\i::<r.:*ca madi.' \ 

ww in w.i. i w »./■!..■ .i. v wj \.*i i >• » w \ jui fuun nui./i \i..uw ■ ini\i\/ 

084C FF32104E DB OFFi-bSO ? 16?4EH *4E (GAP 1) 

? SECTOR BODY REPEATED 26 TIMES 

35 FF C u 8 DB FFH s- 1 2 ? 8 v0 ? ( GAP 1 /GAP 3 ) 

0354 03F5 DB 3?0F5H *F5 

0356 Q1FE DB 1>GFEH JFE (ID ADDRESS MARK) 

0353 0100 DB lv H'RACK NUMBER (0 0-4C OR 0-22) 

085 A 0100 DB 1 * »SIDE NUMBER COO OR 01) 

UOJU U .1. U .f. ?JO .!.?.!. f OCU I Ur\ i\Uf)DCI\ UJ.I."M.i"l Uft U .». "" ,J. X- / 

035E 0101 DB l»i J 01 

0860 01F7 DB 1 ? 0F7H %¥7 (2 CRC ' S WRITTEN) 

0862 164E DB 22»4EH J4E (GAP 2) 

0864 0C0 DB 12*0 J 00 (GAP 2) 

0866 03F5 DB 3*0F5H ?F5 (GAP 2) 

0363 01FB DB :U0FBH JFB (DATA ADDRESS MARK) 

036A 30E5 DB 128»0E5H 5 DATA (AMC USES E5 '-•■ E) 

036C 80E5 DB 128y0E5H *DATA (AMC USES E5 -= E> 

036E 01F7 DB 1»0F7H JF7 (2 CRC ' S WRITTEN) 

DDF ILL X 

0870 FF36144E DB 0FFHj54 >20 ?4EH J4E (GAP 3) 

0374 334E DB 131 y 4EH »4E (GAP 4) 

0376 DB SEND OF TABLE MARKER* 

PAGE 



CP/M MACRO ASSEM 2*0 #07 / { FW6120 - AM9S/6120 FIRMWARE -• PN 05050 067-0 0:1.-0 02 

j ; 

* COMMAND 5 PROCESSOR - RETURN BASIC SENSE CROUP 

t NAME : 

J SENSE! 

* FUNCTION I 

J CLEARS HOST INTERRUPT THEN TRANSFERS THE 4 BASIC; SENSE BYTES TO THE USER 
* 

* UNIT - UNI!" CODE AS SPECIFIED BY THE USER 

* DRIVE •••• LAST VALUE WRITTEN TO DRIVE SELECT REGISTER BY FIRMWARE 

* TRACK ■• BYTE VALUE* TRACK TO BE ACCESSED ON NEXT READ/WRITE 

t SECTOR •■•- BYTE VALUE:* SECTOR TO BE ACCESSED ON NEXT READ/WRITE 

t IF THE PREVIOUS OPERATION ABORTED DUE TO AN ERROR* THE 

% TRACK AND SECTOR BYTES REFLECT THE NUMBERS OF THE TRACK 

* AND SECTOR WHERE THE ERROR WAS DETECTED 

% INPUT" REQUIRED J 

* R0> RI> AND R2 MUST CONTAIN THE 20 -BIT MAIN MEMORY ADDRESS 



% 


OUTPUT GENERATED t 




* 


STATUS 


3 BYTE RETURNED TO THE 


user: 


9 


BIT 






% 


7 


OPERATION COMPLETE 




? 


6 


OPERATION FAILED CIMPi 


LIES ' DMA HUNG-UP ' ) 


% 


5 







i- 


A k 







P 


O 







i 


/?.. 







i' 


1 







? 











PAGE 



CP/M MACRO ASSEM 2*0 #075 FN6 120 - AM9576120 FIRMWARE •• PU 05050 067-0 01-0 02 



SENSE IS 



0877 010300 
087 A CD850B 
087D C9 



LXI 
CALI 
RET" 
PAGi 



XFRSEN 



^TRANSFER THE BASIC -i SENSE BYTES 



CP/M MACRO ASSEM 2 * 



11-0/6 



FW6:l.20 •••• AM95/6120 FIRMWARE •- PN OGO^O 067-00 I- 002 



* COMMAND 6 PROCESSOR - RETURN COMPLETE SENSE GROUP 

X 

J)OCaC)K>K)KXi>K3«>K)K)K)K)K)K)K>K)K:K)K*^ 
ir 

% NAME % 

% SENSE2 



* FUNCTION* 

% CLEARS HOST INTERRUPT THEN TRANSFERS ALL. 1.2 SENSE BYTES TO THE USER 

% UNIT •• UNIT CODE AS SPECIFIED BY THE USER 

% DRIVE ■- LAST VALUE WRITTEN TO DRIVE SELECT' REGISTER BY FIRMWARE 

% TRACK •- BYTE VALUE* "TRACK TO BE ACCESSED ON NEXT READ/WRITE 

SECTOR -• BYT?:: VALUE y SECTOR TO BE ACCESSED ON NEXT READ/WRITE 
CCC ■•• COMMAND COMPLETION CODE IDENTIFIES COMMAND THAT FAILED 
UCC - UTILITY COMPLETION CODE IDENTIFIES UTILITY THAT FAILED 
USTAT - UTILITY STATUS IDENTIFIES ERROR CONDITION IN UTILITY 

PCC -• PRIMITIVE COMPLETION CODE IDENTIFIES PRIMITIVE THAT FAILED 
PSTAT •- PRIMITIVE STATUS IDENTIFIES ERROR CONDITION IN PRIMITIVE 
FIST AT - FLOPPY INTERRUPT STATUS DIRECT FROM FD1793 
FIFLAG -• FLOPPY INTERRUPT FLAG 0=INT OK» ELSE-FD1793 COMMAND 
SPARE - UNDEFINED 



% INPUT' REQUIRED? 

% R£)y R:U AND R2 MUST CONTAIN THE 20 -BIT MAIN MEMORY ADDRESS 

% OUTPUT GENERATED! 

* STATUS BYTE RETURNED TO THE USER J 
>• 

% BIT 

% 7 OPERATION COMPLETE 

% 6 OPERATION FAILED (IMPLIES » DMA HUNG-UP ' ) 

? 5 

* ^ 
9 3 

* 2 
p 1 
» 



■ )K)K*K}K)K)K3ICXJK}K)K)K>K}K>K)K:K)K)K)K:K)K)KK^ 



CP/M MACRO ASSEM 2*0 #077 

SENSE2J 



FW6120 ■- AH95/6120 FIRMWARE - PN 05050 067-0 01-0 0; 



087E 010BOO 
0881 CD8508 
088^ C9 



LXI. 
CALL 
RET 
PAGE 



B ? 1 1 
XFRSEN 



^TRANSFER ALL 12 SENSE BYTES, 



CP/M MACRO AS3EM 2 * 



#078 



FW6120 ••■• AM9576120 FIRMWARI 



PH 0^050 0A7-0 01--0 02 



% SPECIAL SUPPORT ROUTINE -• SENSE! AND SENSE2 



t M'mW^MWM >K JK ;K M M M M M >K W, M Ai jK & & X< }K >K ;K jft ;K :* >K >K *: 5K >K >K 3K & W. M W, XC *i « & :« *i )K M &' 3K >K )K X< #.#.&. M M 3K >K *; W. HC 5K SK >K !*! )K >K >K W 

J SAVE TRANSFER COUNT. 
% CLEAR HOST INTERRUPTS 
J GET MAIN MEMORY ADDRESS, 
2 PERFORM ADDRESS SET-UP ♦ 
J RESTORE TRANSFER COUNT* 



% SET-UP THE DMA CONTROLLER* 
?SET MEMORY CONTROL* 
% -'SENSE' TO MAIN* 
* CLEAR ' MINUS ! FLAG * 

; ISSUE SOFTWARE DMA REQUEST* 

Hi-IE DMA 

J -TRANSFER SHOULD 

% OCCUR HERE* 

»DID THE DMA GET - HUNG-UP? 







XI- R8EN % 






0885 


CS 




.PUSH 


B 


0886 


CD5906 




CALL.. 


CLRINT 


0889 


CDC^OB 




CAI « 


GETADR 


088C 


CDDD08 




CALL 


ADDRSU 


088F 


CI 




POP 


B 


0890 


1 i CHOC 




LXI 


D » SENSE 


0893 


2A1A0C 




I...HLD 


MEMADR 


0896 


OD690B 




CALL.. 


SUDMA0 


0899 


3E0^ 




mvi 


A 9 BFMAIN 


089B 


D3^3 




OUT" 


FDCICR 


089D 


AF 




XRA 


A 


089E 


3E(W 




MVI 


A*'* 


08A0 


D319 




OUT 


DMARR 


08A2 







NOP 




08 A3 







NOP 




08A^ 







NOP 




03A5 


B7 




ORA 


A 


03A6 


3E0 




MVI 


A v 


08A8 


F2AD08 




JP 


XFRS.1.0 


08AB 


F6^0 


XFRS10J 


ORI 


OPFAIL 


08AD 


C9 




RET 
PAGE 





»NO» 

JYES» SET FLAG* 

J RETURN TO THE CALLER* 



CP7Vr MACRO ASSEM 2*0 #079^ FN6 120 - AH9!3>-&:i.20 FIRMWARE • ■ ?W 05050 067-0 1-0 02 

$ COMMAND 7 PROCESSOR •••• RESET BOARD 

BDRSET X 
08AE D34F OUT RESET * RESET BOARD* 

0OB0 C3AE08 JMP BDRSET 

PAGE 



CP/M MACRO ASSEM 2 * 



#080 



FM6I20 



AM9S/612G FIRMWARE - PW 05050 067-0 01-0 02 



5 wyAMy&y£y£'KWX/My£MWMM>KMWWM^ 

% A U T - B T 



AUTOB* 



08B3 3E80 
0SB5 IXH3 

08B7 DB43 
08B9 *\7 
08BA E6 / H'J 
08BC CAB708 
08BF 78 
08C0 E608 
08C2 CAC708 
03C5 D349 

08C7 CDDD08 
08CA CD3502 
08CD A \? 
03CE 03^9 
OSDO AF 
08D1 D348 
03D3 D349 
03D5 3E20 
08D7 D343 
03D9 73 
03DA C31202 



AB10* 



AB20* 



MVI 


A ? HOLD 


OUT 


FDCICR 


IN 


FDCICR 


MOV 


B y A 


ANI 


SYSHAK 


JZ 


AB10 


MOV 


A ? B 


ANI 


8YSRST 


JZ 


AB20 


our 


CLRRST 


CALL 


ADDRSU 


CALL.. 


NBRD 


MOV 


B?A 


OUT 


SETRST 


XRA 


A 


OUT 


FDCICR 


OUT 


CLRRST 


MVI 


A 9 SYSINT 


OUT 


FDCICR 


MOV 


A 9 B 


JMP 


DONE 


PAGE 





? ASSERT 'HOLD'* START BUS REQUEST* 



?HAVE I GOT THE BUS? 

SNO* WAIT* 

£YES? 

n:S THE SYSTEM RESET BEING ASSERTED? 

% NO * 

J YES* CLEAR THE RESET* 

% PERFORM ADDRESS SET-UP* 

J READ IPL RECORD OFF THE DISK* 

£SAVE 'NBRD' STATUS BYTE* 

% ASSERT SYSTEM RESET* 

% RELEASE 'HOLD'* 

J RELEASE SYSTEM RESET* 

% ASSERT 'SYSINT 1 * 



CP/M MACRO ASSEM 2*0 #081 FW6120 AM9S76120 FIRMWARE -• . PN 05050 067-0 01-0 02 

* CENTRAL PURPOSE UTILITY - 

t NAME J 

> ADDRSU 

* FUNCTION % 

% PERFORM ADDRESS SET-UP FOR DMA TRANSFERS 

? INPUT REQUIRED? 

* 'USPS* MUST CONTAIN THE 4 MOST SIGNIFICANT ADDRESS BITS 
? : USMA : MUST CON 

y 

i OUTPUT GENERATED! 

* 'PAGSEG' WILL CONTAIN THE WORKING PAGE REGISTER VALUE <'t BITS) 

* 'MEMADR' a H/L PAIR WILL CONTAIN THE WORKING MEMORY ADDRESS (16 BITS) 
% THE PAGE REGISTER WILL CONTAIN THE VALUE OF ! PAGSE G ' 

% 

% CALLING SEQUENCE; 

% CALL ADDRSU 

$■ 

ADDRSU X 

08DD 3A160C IDA USPS ?GET MOST SIGNIFICANT BYTE OF ADDRESS 

08E0 E60F ANT. 0FH JTHROW AWAY THE -°i MOST SIGNIFICANT BITS. 

08E2 07 

08E3 - ; \7 

OSE^ 2A170C LHLD USMA ?GET NEXT AND LEAST SIGNIFICANT BYTES 

08E7 7C MOV AyH J MOVE BIT 15 

OSES 07 RLC J -INTO THE 

03E? 78 MOV A* 13 $ CREATED PAGE 

08EA CE0 ACI % REGISTER VALUE, 

08EC 07 RLC i ADJUST PAGE REGISTER 

03ED 07 RLC J --VALUE FOR CORRECT 

08EE 07 RLC % HARDWARE ADD 

03EF E6F3 ANI 0F8H J GITS 0-2 ARE DON'T CARES* 

08F1 DSWA OUT FDCPR * SET-UP 'THE PAGE REGISTER* 

08F3 32190C 

03F6 7C 

08F7 E67F ANI 7FH % ' ZERO [ BIT 15 SINCE ITS IN PAGE REGISTER 

03F9 67 



LDA 


USPS 


ANI 


0FH 


RLC 




MOV 


B 9 A 


LHLD 


USMA 


MOV 


A y H 


RLC; 




MOV 


A 9 & 


ACI 





RLC 




RLC 




RLC 




ANI 


0F8H 


OUT 


FDCPR 


STA 


PAGSEG 


MOV 


A 9 H 


ANI 


7FH 


MOV 


H 9 A 



CP/M MACRO A8SEM 2*0 #082 FW6120 - AH95/6120 FIRMWARE - PN 05050067-0 0:1. 02 



08FA 221A0C 
08FD C9 



SHLD 

RET 

PAGE 



MEhADR 



CP/M MACRO ASSEM 2*0 #083 FW6120 - AM95/6120 FIRMWARE •••• PN 05050 067-0 01-0 02 

* GENERAL PURPOSE UTILITY - 
% 

% NAME * 

* RWRT 

* FUNCTION t 

* PERFORM READ/WRITE RETRY ANALYSIS* IF RETRIES ARE ENABLED AND NOT 
% EXHAUSTED? PERFORM A RESTORE FOLLOWED BY A RE-SEEK* 

% 

% INPUT REQUIRED? 

I 'UNIT* MUST C 

% 

% OUTPUT GENPATED* 

% '■ A ! REGISTER : - -"• DO RETRY 

J « NZ = ABORT 

t 

t CALLING SEQUENCE* 

* CALL RWRT 
>• 

RWRT X 

I...DA UNIT 

* RETRIES ENABLED? 

* NO 9 ABORT * 

* RETRIES EXHAUSTED? 
»YESs» ABORT* 



08FE 


3A(H0C 




I...DA 


UNI f 


0901 


E610 




ANI 


10H 


UV03 


3E80 




MUI 


A ? US7RE 


0905 


CA2109 




JZ 


RWRT 10 


0908 


21 1F0C 






i-bRCNTl 


09 0B 


35 




DCR 


H 


090C 


CA2109 




JZ 


RWRT 10 


09 OF 


CDF309 




CALL 


RESTOR 


0912 


97 




ORA 


A 


0913 


3E^0 




MUI 


A 9 USTRF 


0915 


C22109 




•JNZ 


RWRT 10 


0918 


CD510A 




CALL 


SEEK 


091 B 


B7 




ORA 


A 


09 1C 


CA2D09 




JZ 


RWRT20 


091F 


3E20 


RWRT li 


MUI 
i) * 


AyUSTSF 


0921 


210A0C 




LXI 


H :■• USTAT 


092^ 


B6 




ORA 


M 


0925 


7/ 




MOV 


My A 



% RESTORE ERROR? 
?YES* ABORT* 

*seek error? 

*HGv TRY OPERATION AGAIN 
£YES* ABORT* 



CP/M MACRO ASSEM 2 * 



#0tiH 



FW6:1.20 - AM95/6120 FIRMWARE ■••• PM 05050 067 -0 01 -0 02 



0926 3E80 
0928 2:1.0900 
092B B6 
092C 77 

092D C9 



RWRT20 



MVI 
I...XI 
OR A 
MOU 



KE 



A ? UCCRW 
H » UCC 
ii 

M v A 



?SET 'RWRT' IDENTIFIER 
♦ RETURN TO THE CAJ...LER* 



CP/M MACRO ASSEM 2*0 #085 FW6120 - AM95/6120 FIRMWARE - PH 05050 067-0 01-0 02 

i 

* GENERAL PURPOSE- UTILITY - 

$ NAME % 
i NEXT 

5- 

i FUNCTION? 

% RE -INITIALIZE THE RETRY COUNTERS* 

% POINT TO THE NEXT SECTOR AND TRACK ( AS REQUIRED ) * 

% USE 'SECCNT' TO DETERMINE IF THERE ARE MORE! SECTORS TO BE DONE* 

% 

% INPUT REQUIRED* 

i ' SECCNT ! MUST CONTAIN THE NUMBER OF SECTORS TO BE DONE 

J 'SECTNC MUST CONTAIN THE INTERLACE CONSTANT 

$ 'SECTOR' MUST CONTAIN THE CURRENT SECTOR 

J 'TRACK' MUST CONTAIN THE CURRENT TRACK 

$ 'HITK* MUST CONTAIN THE MAXIMUM TRACK/SECTOR VALUES*! 

5 OUTPUT GENERATED* 

J 'A* REGISTER ~ ~ DONE 

% = NZ ~ EVALUATE 'B 1 REGISTER 



* 

% ' B ! REGISTER :::: ~ DO ANOTHER SECTOR 

% -- NZ "■= ABORT (END OF DISK) 

* 

% IN ADDITION* 

* 'SECCNT' WILL CONTAIN THE NUMBER OF SECTORS TO BE DONE (OR FF) 
% 'SECTOR' NILE CONTAIN THE NEXT SECTOR 

% 'TRACK' WILL CONTAIN THE NEXT TRACK 

% 

% CALLING SEQUENCE* 

* CALL.. NEXT 

* SPECIAL CONSIDERATION $ 

% THIS ROUTINE SUPPORTS BOTH STANDARD AND MINI DRIVES WHERE $ 

% STANDARD »■= 26 SECTORS/TRACK AND 76 TRACKS/SIDE 

% MINI =■■ 18 SECTORS/TRACK AND 35 TRACKS/SIDE 
* 

% X )K HC X #. & »i A< & )¥. X X X % 5K )K )K )K )K X< 3K X &' 3K )K )K M X >K )K *C JK >K ;fc )K JK M W. Si >K & )K X )K Mi )K >K )K 5K )K )K X X )K >K )K )K JK )K )K )K 3K )K )K I* )K 3K X >K >K )K 

PAGE 



OP/M MACRO ASSEH 2 * 



IMJ86 



FW6120 •- AM95/6120 FIRMWARE - PN 05050 067-0 01--0 02 



NEXT 



092E 


2A2A0C 




LULL 


0931 


EB 




XCiil 


0932 


21070C 




L..X1 


0935 


46 




MOV 


0936 


3A260C 




LDA 


0939 


80 




ADD 


093A 


77 




MOV 


093B 


92 




SUB 


093C 


DA5809 




dC 


093F 


C24509 




dNZ 


0942 


3A260C 


NEXT! OS 


I...DA 


09-45 


32070C 




STA 


0948 


3D 




DCR 


0949 


C25809 




JHZ 


094C 


21 060 C 




L.XI 


094F 


7E 




mov 


0950 


3C 




:i:nr 


0951 


&B 




CMP 


0952 


0E10 




MUX 


0954 


CA5A09 




dZ 


0957 


77 


NEXT 15 J 


MOV 


0958 


0E0 


NEXT20 t 


MVI 


095 A 


210 AOC 




LXI 


095D 


7E 




MOV 


095E 


Bl 




GRA 


095F 


77 




MOV 


0960 


3A1C0C 




EDA 


0963 


3D 




DCR 


0964 


321C0C 




STA 


0967 


CA80 09 




J2 


096 A 


79 




MOV 


096B 


B7 




ORA 


096C 


3E01 




MVI 


096E 


060 




MVI 


0970 


CA80 09 




dZ 


0973 


21090C 




EXT. 


0976 


7E 




MOV 


0977 


F640 




ORI 



hitk 



if;' SECTOR 
B v M 

SECINC 
B 

M y A 

D 

NEXT i. 5 
NEXT 10 
SECINC 

SECTOR 

Ai 

NEXT 15 

H * T RACK 

A*M 

A 

E 

C r USTEOD 

NEXT20 

M v A 

C*Q 

HrUSTAT 

A?M 

C 

M»A 

8ECCNT 

A 

SECCNT 

NEXT3G 

A*C 

A 

A>1 

13 f0 

NEXT30 

H v I.JCC 

A y M 

UCCNE 



?D »■" HIGH SECTOR y E -~ HIGH TRACK, 

> POINT TO 

S-NEXT 

* SECTOR 

* IN 

9 SEQUENCE* 

?IF ' A s LT HISEy DO ANOTHER SECTOR* 

5 IE ! A' EQ 01 9 END OF 2H. TRACK* 

JIF 'A' EQ RISE* NEXT SECTOR ~ SECINC 



JIS NEXT SECTOR EQ 01? 

»NOy START EVEN SECTORS IN 2;1 * 

J YES* POINT 

*~TQ 

? - NEXT 

£ TRACK* 

J END OF DISK ENCOUNTERED? 
JYESy ABORT* 

mo v 

>'C' ~ COMPLETION CODE - DO ANOTHER* 



? DECREMENT SECTOR COUNT* 

J HAVE I DONE AL.L THE SECTORS' 

?YES> EXIT? DONE* 

J WERE THERE ANY ERRORS? 



$ NO 



% SET ' NEXT ' IDENTIFIER * 



CP/M MACRO ASSEM 2 * 

0979 77 
097 A 3A0A0C 
097D <Y7 
097E 3E01 



0980 C9 



i 2*0 


i 


#087 


FW6120 






MOM 


M ? A 






LDA 


USTAT 






MOM 


By A 






MVT 


AvI 


NEXT 


so : 


RET 
PAGE 





AM95/612Q FIRMWARE - PN 05050 067-0 01-0 02 



? RETURN COMPLETION CODE IN ! B J * 
> ! A ! -• NZ ;: - NOV DONE-CHECK \B l * 



CP/M MACRO ASSEM 2*0 #088 FW6120 •■■• AM95/6120 FIRMWARE •■•• PN 05050 067-0 0:1. --002 



0981 


3A320C 


0984 


47 


0985 


3A060C 


0988 


A8 


0989 


CAA109 


098C 


CDS 10 A 


098F 


B7 


0990 


CAA109 


0993 


2.1.0 AC) C 


0996 


7E 


0997 


F620 


0999 


77 


099 A 


2I090C 


099D 


7E 


099E 


F6(H 


09A0 


77 


09A1 


C9 



i- ft ft ft ft ft. ft ft ft ft ft ft ft. ft ft ft ft ft ft ft ft ft >K >K ft ft ft. ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 'ft ft ft ft X * : >K'>K ft ft ft ft ft ft 

% GENERA!... I :: 'URP08E UTILITY - 

% NAME * 

% I SEEK 

% FUNCTIONS 

* BEE IF AN INTERNAL SEEK IS NECESSARY AND PERFORM ONE IF NEEDED* 
5 \4v-\EM 'TRACK 1 AND ' TRKNOW ' ARE NOT EQUAL y A SEEK IS NECESSARY* 

j- 

? INPUT REQUIRED* 

? 'TRACK' MUSI" CONTAIN THE REQUESTED TRACK NUMBER 

t 'TRKNOW MUST CONTAIN THE NUMBER OF THE CURRENTLY AVAILABLE TRACK 

i- 

* OUTPUT GENERATED* 

% 'A' REGISTER ■■■■■■ 00 ~ CHECK AND/OR SEEK COMPLETE j PROCEED 

J -- NZ ~ SEEK FAILED 

% CALLING SEQUENCE * 

» CALL.. ISEEK 
% 

%ftftftftftftftftftftftftftftftftftftftW.ft^ 

ISEEK* 



? AM I. ON TRACK? 

J YES* DONE* 

JNOv PERFORM SEEK* 

>WA8 THE SEEK SUCCESSFUL? 

JYESy DONE* 

?NO* SET ERROR COMPLETION CODE* 



LDA 


TRKNOW 


MOV 


ByA 


LDA 


TRACK 


XRA 


B 


JZ 


ISK10 


CALL 


SEEK 


ORA 


A 


JZ 


ISK10 


LXI 


H v USTAT 


MOV 


As>M 


ORI 


USTSF 


MOV 


MvA 


LXI 


HvUCC 


MOV 


AvM 


ORI 


UCCISK 


MOV 


My A 



ISKIO 



RET 



% RE TURN TO THE CALLER 



CP/M MACRO ASSEM 2*0 #089 FW6120 - AM95/6120 FIRMWARE - PN 05050 067 -0 1-0 02 



? GENERAL. PURPOSE UTILITY - 

$ 

% NAME * 

% SELECT 

y 

% FUNCTION I 

» PERFORM A SELECT OF THE REQUESTED DRIVE WHILE REMEMBERING THE 

* HEAD POSITION (TRACK) OF THE DRIVE BEING DESELECTED* 



* 



* 






* 'DRIVE' MUST CONTAIN THE REQUESTED DRIVE NUMBER (BITS Q-I) 

* i r\r,i liim I i \&t it-.f r»nuTATll *ri II— Ml IMDCD nr "Y - I..inr f"N l£:«l"i|""M*ri V Otl LTTCTl I'NOTIJE" 

■TRKNOW' MUST CONTAIN THE NUMBER OF THE CURRENTLY AVAILABLE TRACK 



}■ 
? 

?■ output generated: 

j 'a' register = = same drive ? proceed 

$ ~ diffdr = different drive? do seek? then proceed 

j - drnota =■-• drive never accessed * do restore > then proceed 

* j drvnow' will contain the number of the currently selected drive 

% ' TRKNOW ' WILL CONTAIN THE NUMBER OF THE CURRENTLY AVAILABLE TRACK 

% FDCTR WILL BE SET WITH THE VALUE OF 'TRKNOW' 

% CALLING SEQUENCE: 

% CALL SELECT 

£ 

SELECT' % 

09A2 2:1.3 IOC LXI H» DRVNOW J GET DRIVE NOW SELECTED* 

09A5 5E MOV E»M 

09A6 3A050C LDA DRIVE J GET REQUESTED DRIVE* 

09A9 DSHD OUT DRVSEL * SELECT REQUESTED DRIVE, 

09AB E603 ANI 3 

09AD 77 MOV Ms>A £SET DRIVE NOW SELECTED* 

09AE W MOV CyA 

09AF 7B MOV A?E 

09B0 FEFF CPI DRNOTA JHAS ANY DRIVE EVER BEEN ACCESSED? 

9B2 C AD6 9 JZ SEL 1 J NO y 

09B5 A9 XRA C >AM I SELECTING THE SAME DRIVE? 

09B6 CAD609 JZ SEL 01 J YES* DONE. 

09B9 160 MVI D?0 J CALCULATE ADDRESS 

09BB 23.330C I...XI 1-UD0TRAK $ -OF TRACK 



CP/M MACRO ASSEM 2 * 

09BE 19 
09BF 3A320C 
09C2 77 
09C3 060 
09C5 21330O 
09C3 09 
09C9 7E 
09CA D301 
09CC 3232 DC 
09CF FEFF 
09D1 CAD609 
09f.H 3EFE 



#090 



SEE 01 1 



FW6120 - AM95/6120 FIRMWARE - PK 05050 067- i-0 02 

'i SAVE LOCATION * 



09D6 C9 



DAD 
EDA 


o 
TRKNOW 


MOV 


M v A 


MVI 

LXI 


BvO 
HyDOTRAK 


[)AD 
MOM 
OUT 
S'i'A 

cp:i: 


B 

A ? M 

FDCTR 

TRKNOW 

DRNOTA 


J'/. 
MVI 


BEL 01 
A>DIFFDR 


RET 
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JSAVE OLD TRACK ON OLD DRIVE 



? FETCH NEW TRACK ON NEW DRIVE* 

J SET FD1793 'TRACK REGISTER* 

JSFT NEW TRACK POINTER* 

J HAS THIS DRIVE EVER BEEN ACCESSED 

* NO ■} 

% YES y 
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* GENERAL PURPOSE UTILITY - FLOPPY DISK 

? NAME; 
» FDISR 
% 

% function: 

% service level 6*5 interrupts generated by the fd1793 

* 

? INPUT REQUIRED? 

* NONE 

; output generated: 

t 'fist at « nile contain the fd1793 status byte 

5 'fiflag' mill be reset to zero 

* calling sequence: 

j vectored call by the processor at the time the interrupt is detected 

$ 

FDISR % 

PUSH PSW 
IN FDCISR 

tXS BOARD JUMPERED FOR 'LIMITED MASTER'? 

* NO y 
9 YES 9 

* READ FD :!. 793 STATUS * 
JSAVE IT* 

JFFIX =» FORCE INTERRUPT WITHOUT INTERRUPT* 
J ISSUE COMMAND* 

? RETURN TO INTERRUPTED CODE* 



09D7 


F5 




PUSH 


F'SW 


09D8 


DB48 




IN 


FDCISR 


09DA 


E6(H 




ANT 


LMASTR 


U9DC 


C2E309 




,JNZ 


FDIS10 


09DF 


Fl 




POP 


PSW 


09E0 


C30 0C0 


FDIS:i 


JMP 

lo: 


LMI65 


09E3 


DB0 




IN 


FDCST 


09E5 


320D0C 




ST A 


FIST AT 


09E8 


AF 




XRA 


A 


09E9 


320E0C 




STA 


I-XFLAG 


09EC 


3ED0 




MVI 


A 9 F'FIX 


09EE 


D3U0 




OUT 


FDCST 


UVi-0 


F.1. 




POP 


F'SW 


09F1 


FB 




!::.! 




09F2 


C9 




RET' 
F'AGE 
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-> >k »<: ac ;« 5K >k '* >k :& x< 'M &: :#; & >k w. :*: >k >k *. m m >k ft :>k jk >k >k x< >k >k *: & >x >k jk >k >sc >k &: ;K #. >k >k >k >k >k jk >k x< >k >k >k jk sk ;k >k >k m w-. m y.< jk >k & jk >k »' >k * & 
? 

* GENERAL. PURPOSE PRIMITIVE -• FLOPPY DISK 
j : 

* NAME I 
S RESTOR 

> function: 

* PERFORM A SELECT AND RESTORE ON THE REQUESTED DRIVE 
% VERIFY IS NOT PERFORMED IN CASE DISKETTE IS BLANK OR UNREADABLE 

% INPUT required: 

j 'drive' must contain the requested drive number 

% output generated: 

* 'a' register ~ -■■ restore successful & complete 

£ ~. hz «= restore failed 

9 

'i CALLING SEQUENCE: 
> CALL RESTOR 
? 

$JK*3K*)K3K)K>K)K)K)K)K)K)KX)K)KJK)K}K)K)K)Ktf^ 

RESTOR t 
09F3 DB49 IN FDSR8T ? START FD1793 RESET* 

09F5 3E^B 

09F7 3D ™ DCR A * DELAY AT LEAST 50 MICROSECONDS* 

09F8 C2F709 

09FB DB'tA IN FDCRST J STOP FDI793 RESET* 

09FD 3ED0 

09FF D30 OUT FDCCR J TERMINATE INTERNAL FD1793 HOME MICROCODE* 

0A01 3E03 MVI Am 3 J INITIALIZE THE 'BUILT-IN 1 WORKING 

0A03 3221 0C ST A RCNT3 * -RESTORE RETRY COUNTER* 





IN 


FDSRST 




MVI 


Ay 75 


REST 05: 








DCR 


A 




JNZ 


REST 05 




IN 


FDCRST 




MVI 


AvFFIX 




OUT 


FDCCR 




MVI 


A r 3 




STA 


RCNT3 




CALL 


SELECT 


REST 10* 








CALL 


STEPI 




CALL 


STEPI 




CALL 


STEPI 




SIM 


EI6575 




EI 






LDA 


FREST 




STA 


FIFLAG 



0A06 CDA209 CALL SELECT S SELECT THE REQUESTED DRIVE* 

REST 10* 

0A09 CDAB0A CALL STEPI *STEP IN. 

0A0C CDAB0A CALL STEPI JSTEP IN* 

0A0F CDAB0A CALL STEPI J STEP IN* 

0A12 

0Ar5 Fj ::j EX J ENABLE 8085 INTERRUPT SYSTEM* 

0A1.6 3A2C0C LDA FREST J GET RESTORE COMMAND* 

0A19 320E0C STA FIFLAG ?SET INTERRUPT FLAG* 
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0A1C 


D3O0 


0A1E 


CD350B 


0A2:i. 


B7 


0A22 


C2470A 


0A23 


3A0D0C 


0A28 


E6B8 


0A2A 


CASE A 


0A2D 


2 12 IOC 


0A30 


35 


0A31 


C2090A 


0A34 


210C0C 


0A37 


7E 


0A38 


F680 


0A3A 


// 


0A3B 


C3470A 


0A3E 


AF 


0A3F 


3232 OC 


0A42 


060 


OrVHI 


C3490A 



0A47 0680 

0A49 210B0C 
0A4C 7E 
0A4D BO 
0A4E 77 
OA^F 73 
0A50 C9 



REST20* 



RESTS J 



REST^GS 



OUT 

CALL 

ORA 

JNZ 

LDA 

AN I 

JZ 

LXI 

OCR 

JNZ 

LXI 

MOM 

ORI 

HOv 

JMP 

XRA 
STA 
MUX. 
JMP 

MMI 

LXI 
MOM 
ORA 
MOM 
MOM 
RET 
PAGE 



FDCCR 

WAIT 

A 

RESTS 

FISTAT 

RESERR 

REST20 

i-bRCNTS 

M 

REST 10 

hi 9 PSTAT 

A 9 M 

PSTREX 

M 9 A 

REST'S 

A 

TRKNOW 
B?0 
REST40 

B 9 PCCRE 

H 9 PCC 
A 9 M 

b 

M y A 
A 9 B 



% ISSUE COMMAND * 

* WAIT FOR OPERATION TO COMPLETE* 

J * WAIT ! ERROR? 

? YES v ABORT * 

J GET STATUS* 

JWERE THERE ANY ERRORS? 

$ NO v CONTINUE * 



fNO* TRY IT AGAIN* 
? YES v 



?SET ERROR FLAG* 
* ABORT * 



>SET TRACK NOW AVAILABLE* 

*Es~0 0~RESTOF<E SUCCESSFUL S COMPLETE* 

* EXIT * 



5 RETURN TO CALLER 
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% M. X< >K A< y.< ;K & >K >K M >K >K Ai & & M & M. >K >K W. >K X< M< >K & >K >K >K & ;K ;K >K ;K )X JK X< X< X< X< ;« >K >K 2< >K X< )5C >!< & & >K >K M M >K >K >K & >K JK >K >i< >K X. W, ;V, M >K JK >K >K 

? GENERAL. PURPOSE PRIMITIVE ••■■ FLOPPY DISK 

? NAME * 
t SEEK 

* FUNCTIONS 

J PERFORM A SEEK TO THE REQUESTED TRACK ON THE CURRENTLY SELECTED DRIVE 
% PERFORM SEEK RETRIES IF ENABLED BY. THE USER 

% INPUT REQUIRED! 

% THE DRIVE MUST BE SELECTED 

% 'TRACK' MUST CONTAIN THE REQUESTED TRACK NUMBER 

i 'DRIVE' MUST CONTAIN THE VALUE PLACED INTO DRIVE SELECT REGISTER* 

i 

i OUTPUT GENERATED? 

» 'A 1 REGISTER *= ■■■■■ SEEK SUCCESSFUL & COMPLETE 

% == HZ = SEEK. FAILED 

* 'TRKNOW' WILL CONTAIN THE NUMBER OF THE CURRENTLY AVAILABLE TRACK 

? CALLING SEQUENCE: 

J CALL SEEK 

$ 

SEEK J 

5 INITIALIZE THE WORKING 
» -SEEK RETRY COUNTER* 

5 GET REQUESTED TRACK NUMBER, 

* SET-UP THE FD1793 DATA REGISTER* 

* ENABLE 8085 INTERRUPT SYSTEM* 

J GET SEEK COMMAND* 

I SET INTERRUPT FLAG * 

J ISSUE COMMAND* 

J WAIT FOR THE OPERATION TO COMPLETE* 

J GET AND SAVE 

f -TRACK NOW AVAILABLE* 

t ' WAIT ' ERROR? 



0A51 


3A1E0C 


LDA 


SEEKRC 


0A54 


3220 0C 


ST A 


RCNT2 




seekio: 




0A57 


3A060C 


LDA 


TRACK 


0A5A 


D303 


OUT 


FDCDR 


0A5C 




SIM 


EI6575 


0A5F 


FB 


EI 




0A60 


3A2D0C 


LDA 


F- SEEK 


0A63 


320 E0C 


STA 


FIFLAG 


0A66 


D30 


OUT 


FDCCR 


0A68 


CD350B 


CALL 


WAIT 


0A6B 


F5 


PUSH 


PSW 


0A6C 


DB01 


IN 


FDCTR 


0A6E 


3232 0C 


STA 


TRKNOW 


0A71 


F:l. 


POP 


PSW 


0A72 


B7 


ORA 


A 



CP/M MACRO ASSEH 2*0 



#0915 
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nA'7'.i 


060 


MUX 


BfQ 


0A75 


C29D0A 


,.)NZ 


SEEK'iG 


0A78 


3A0D0C 


LDA 


FIST AT 


0A7B 


E698 


ANI 


SEKERR 


0A7D 


CAAAOA 


JZ 


SEEK5Q 


0AB0 


3 A CHOC 


LDA 


UNIT 


0A83 


E610 


ANI 


10H 


0A35 


CA9B0A 


JZ 


SEEKS 


0A88 


2120 OC 


LXI 


H « RCNT2 


0A8B 


35 


iX;R 


M 


0A8C 


CA9B0A 


JZ 


SEEK30 


0A8F 


CDF309 


CALL 


RE3T0R 


0A92 


B7 


ORA 


A 


0A93 


CA570A 


tJZ 




0A96 


06'*0 


MUI 


& t PSTRF 


0A93 


C39D0A 


JMP 
SEEKS 0* 


SEEK^O 


0A9B 


0630 


MUX 
SEEK-^0* 


B 9 pstre: 


0A9D 


210C0C 


LXI 


H ? P3TAT 


OAAO 


7E 


MOV 


A 9 M 


0AA1 


BO 


ORA 


B 


0AA2 


/ / 


MOV 


M 9 A 


0AA3 


210B0C 


LXI 


i-bPCC 


0AA6 


7E 


MOV 


A 9 M 


0AA7 


F6 x 'fO 


ORI 


PCCSE 


0AA9 


/ / 


MOV 
SEEKS OX 


M 9 A 



£ YES 9 ABORT * 

* GET STATUS * 

JWERE THERE ANY ERRORS? 

J NO? SEEK SUCCESSFUL & COMPLETE* 

SARE RETRIES ENABLED? 
? NO 9 ABORT « 

? ARE RETRIES EXHAUSTED? 

% YES 9 ABORT * 

JNOjf GET THINGS ALIGNED WITH A RESTORE* 

»WAS THE RESTORE SUCCESSFUL? 

% YES 9 DO THE SEEK AGAIN * 

* son „ /••. pn or 



% RETRIES EXHAUSTED 



0AAA C9 



RET 
PAG! 



% RETURN TO THE CALLER* 
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t%i'&y6XMK#rKM>K&&y^^ 

> GENERAL PURPOSE PRIMITIVE - FLOPPY DISK 

% 

% NAME J 



* 



5 FUNCTION* 

% PERFORM A HEAD STEP IN ON THE CURRENT!... Y SELECTED DRIVE 

"i 

% INPUT REQUIRED? 

% THE DRIVE MUST BE SELECTED 

% OUTPUT GENERATED * 

% 'A' REGISTER ■■■■ :::; STEP IN SUCCESSFUL & COMPLETE 

? = NZ - STEP IN FAILED 

? 'TRKNOW' WILL CONTAIN THE NUMBER OF' THE CURRENTLY AVAILABLE TRACK 

? CALLING SEQUENCE I 

? CALL STEPI 

j : 

I SPECIAL. CONSIDERATIONS * 

% THIS ROUTINE IS USED BY RESTORE TO INSURE THAT- THE HEAD IS 

> NOT BEHIND THE HOME POSITION* 

t- 

* THIS ROUTINE IS ALSO USED BY INIT TO POSITION FROM TRACK TO TRACK* 

STEPI* 
0AAB 

0AAE FB EI J ENABLE 9085 INTERRUPT' SYSTEM* 

0AAF 3A2E0C LDA FSTEPI ' JGET STEP IN COMMAND 

0AB2 320E0C ST A FIFE AG 5 SET INTERRUPT FLAG* 

0AB5 D30 OUT FDCCR * ISSUE COMMAND 

0AB7 CD350B CALL WAIT J WAIT FOR THE OPERATION TO COMPLETE 



SIM 


EI657S 


EI 




LDA 


FSTEPI 


STA 


FIFLAG 


OUT 


FDCCR 


CALL 


WAIT 


ORA 


A 


JNZ 


STPI10 


LDA 


FISTAT 


ANT. 


S'T'IERR 


JNZ 


SI PI 10 


IN 


FDCTR 


STA 


TRKNOW 



0ABA B7 ORA A t ' WAIT * ERROR? 

0ABB C2CF0A JNZ STPI10 JYESsf ABORT, 

0ABE SAO DOC LDA FISTAT J GET STATUS* 

0AC1 E688 ANI S'T'IERR * WERE THERE ANY ERRORS? 

0AC3 C2CF0A JNZ STPI10 J YES* ABORT* 

0AC6 DB01 IN FDCTR J 

0AC8 3232 0C STA TRKNOW J GET AND SAVE TRACK NOW AVAILABLE* 



P/M MACRO AS£ 


3EM 2*0 


#097 


FW612G 


OACB AS- 




XRA 


A 


OACC C3D60A 


SiKJLiOJ 


JMP 


BTPI20 


OACF 210B0C 




LXI 


H 9 PCC 


GAD2 7E 




MOV 


A?M 


0AD3 F620 




OR1 


PCCSI 


GADS 77 


8TPI20* 


MOM 


M ? A 


0AD6 C9 




RE i 
PAGE 
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JA--GG-STEP IN SUCCESSFUL & COMPLETE, 



J RETURN TO THE CALLER* 



GP/M MACRO ASSEM 2*0 #098 FN6120 - AM9576:i.20 FIRMWARE •■■• PN 05050067-0 01-0 02 

+ 5K >K >K )K W. >K ft >K 3K >K & & & >K >!< >K & >K >K & >K K< M X. >K >K X >K *! 5K ;fc >K M X< $. >K M. Xi M X. & & >K>K & XC >K JK >K >K >K & >K 'A< W. >K >K >i< W. & X< )K X< ;K >K ft X ft X. ft ft 

% 

% GENERAL PURPOSE PRIMITIVE " FLOPPY DISK 

% NAME % 

% READ 

f- 

% FUNCTION % 

% READ 1 SECTOR FROM THE CURRENT TRACK ON' THE CURRENTLY SELECTED DRIVE 

* 

? INPUT REQUIRED! 

J THE DRIVE MUST BE SELECTED 

% THE HEAD MUST BE POSITIONED 

% THE HEAD MUST BE LOADED 

% THE DMA MUST" BE SET-- UP AND ENABLED 

% 'SECTOR' MUST CONTAIN "THE REQUESTED SECTOR NUMBER 

% 

% OUTPUT GENERATED * 

% THE INPUT BUFFER NILE CONTAIN THE SECTOR DATA 

* 'A 1 REGISTER =* == READ SUCCESSFUL.. & COMPLETE 

% ■■■■■■■ NZ ~~ READ FAILED 

J CALLING SEQUENCE! 
t CALL READ 

A 

#■ 

READ! 

*GET THE SECTOR NUMBER* 

J PUT IT IN THE FD1793 SECTOR REGISTER* 

J ENABLE 8035 INTERRUPT SYSTEM* 

5 SET INTERRUPT" FLAG ♦ 

5 ISSUE: COMMAND * 

J WAIT FOR THE OPERATION TO COMPLETE* 

i ' WAIT ' ERROR? 

t YES 9 ABORT' * 

J GET STATUS* 

>WERE THERE ANY ERRORS? 

J NO? DONE* 



0AD7 


3A070C 


LDA 


SECTOR 


0ADA 


D302 


OUT- 


FDCSR 


0ADC 




SIM 


LI6575 


0ADF 


FB 


LI 




0AE0 


3A2F0C 


LDA 


RDIOC 


0AE3 


320E0C 


STA 


FIFLAG 


0AE6 


D30 


OUT" 


FDCCR 


0AE3 


CD350B 


CALL 


WAIT 


OAEB 


1..'/ 


ORA 


A 


0AEC 


C2F70A 


JNZ 


READ10 


0AEF 


3A0D0C 


LDA 


FIST AT 


0AF2 


E69C 


ANI 


RDSERR 


OAF -4 


CAFE A 


JZ 
READX0* 


READ20 


OAF 7 


210B0C 


LXI 


H y PCC 



CFVM MACRO ASSEM 2*0 



U ft!" ft 
OAFB 

OAFD 


F610 


OAFE 


C9 



READ20J 



#09^ 

MOV 
ORX 
MOV 

RET 
PAGE 
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A y M 
PCCRD 
M s> A 

? RETURN TO CALLER * 



jp/m macro assem 2*0 #100 fn6120 ■■•• am95/6120 firmware - pn 0505006/ •-00:1.-0 02 

* general purpose primitive •••• floppy disk 

V 

i- NAM!:-; * 

* WRITE 

y 

% WRITE A SECTOR TO THE REQUESTED TRACK ON THE REQUESTED DRIVE 

> % 

* INPUT REQUIRED X 

% THE DRIVE MUST BE SELECTED 

? THE HEAD MUST" BE POSITIONED 

% THE HEAD MUST BE LOADED 

% THE DMA MUST BE SET-UP AND ENABLED 

% 'SECTOR 5 MUST CONTAIN THE REQUESTED SECTOR NUMBER 

% 

% OUTPUT GENERATED % 

% THE CONTENTS OF THE OUTPUT BUFFER WILL BE WRITTEN ON THE DISKETTE 

% 'A' REGISTER ~ = WRITE SUCCESSFUL & COMPLETE 

, ,,-. mz =: WRITE FAILED 

? 

J CALLING SEQUENCE t 

J CALL WRITE 

WRITE/* 
0AFF 3A070C LDA SECTOR JGET THE SECTOR NUMBER* 

0B02 D302 OUT FDCSR *PUT IT IN THE FD1793 SECTOR REGISTER* 

0B04" SIM EI6575 

0B07 FB EI % ENABLE 8085 INTERRUPT SYSTEM* 

0B08 3A30 0C LDA WTIOC 

0B0B 320E0C ST A FIFLAG *SET INTERRUPT FLAG* 

0B 
0B 
0B 
0B 
0B 
0B 
0B 

WRIT :UU 
0B1F 23.0B0C LXI HvPCC 



IF D30 OUT FDCCR J ISSUE COMMAND 

10 n>350R CAM WAIT JWAIT FOR THE OPERATION TO COMPLETE 

13 p7^ ' ORA A i 'WAIT' ERROR? 

14 C21F0B JNZ WRIT 10 JYES» ABORT* 
1.7 3A0D0C LDA FIST AT J GET STATUS* 

1A FAFC ANI WTSERR JWERE THERE ANY ERRORS'? 

"c CA260B JZ WRIT20 iHQt DONE* 
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0B22 7E 
0B23 F6 08 
0B25 77 

0B26 C9 



WRI.T2G % 



MOV 
ORI 
MOV 

RET 
PAGE 



A 9 h 
PCCWR 
M ? A 



£ RETURN TO THE CALLER* 
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$ 

? GENERAL PURPOSE UTILITY -■ FLOPPY DISK 

t 

i >k w. :« &: >' >k >k x< >k :*: :*: >k »: m x< >k »: :*: m m m m x< &' :>k :*: & & >k m m m >k >k :*: jk :*: jk m m & m :*c jk >k jk jk :*; :* »: "*: &: x< >k & *: jk >k m m jk .*; >k m >k #t >k >k >k & :* 

? 

5 NAMES 

> ST AT XX 

» I ;: ' UNCTION I 

i GET STATUS OF THE- CURRENT DRIVE FOR FIRMWARE USE 

% 

% input required: 

* NONE 

£ 

9 OUTPUT GENERATED X 

% 'A' REGISTER *= STATUS OF THE CURRENTLY SELECTED DRIVE 

% 

% CALLING SEQUENCE: 

% CALL STATXX 

% 

STATXX J 
0B27 DB0 IN FDCST ?READ FD1793 STATUS* 

0B29 E6C0 ANI 0C0H » ISOLATE 'UNIT NOT READY" & 'WRITE PROTECT*. 

0B2B OF 
0B2C £ \7 
0B2D DB48 IN FDCISR ?GET INTERNAL STATUS REGISTER* 



IN 


FDCST 


ANI 


0C0H 


RRC 




MOV 


B 9 A 


IN 


FDCISR 


ANI 


DR2SID 


ORA 


B 


RRC 




RRC 




RET 




PAGE 





0B2F E610 ANI DR2SID J ISOLATE '2 SIDED' BIT* 

0B31 B0 

OF13? OF RRC SMOVE OVER TO CORRECT 

0R 33 OF RRC J -BIT POSITIONS* 

0Fs34 09 RET" * RETURN TO THE CALLER* 
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* GENERAL PURPOSE UTILITY •-■ FLOPPY DISK 
? 

* NAME! 

% WAIT 

% FUNCTION $ 

* WAIT FOR THE FD1793 TO INTERRUPT WHEN CURRENT OPERATION IS COMPLETE 
% THIS ROUTINE ACTS AS A FAIL/SAFE TIMER TO PREVENT HANG-UPS* 

% INPUT REQUIRED? 

% NONE 

i OUTPUT GENERATED! 

» *A' REGISTER - ~ INTERRUPT OCCURRED AND FD1793 IS NOT BUSY 

* - PSTWE1 = INTERRUPT OCCURRED BUT FD1793 STILL BUSY 

t- = PSTWE2 ■•'■■■■ TIME-OUT * NO INTERRUPT y AND FD1793 NOT BUSY 

J == PSTWE3 ~ TIME-OUT? NO INTERRUPT p AND FD1793 BUSY 

% 'FIST AT' « FD1793 STATUS 

* 'FIFLAG' "- FD1793 COMMAND IF INTERRUPT DID NOT OCCUR 

; CALLING SEQUENCE X 

t CALL.. WAIT 

j* 

WAIT X 

J SET-UP FOR 1 SECONDS * 



0E 


:35 


160 A 


W£ 


ill" 


.1. * 


MVI 


D ? 1 


0E 


,.-\—y 


210 096 








1...XI 


H v 960 OH 








f 


IN 


NER 


WAIT 


LOOP (H7L 








WA 


il 1 


zin 






0E 


:3A 


3A0E0C 








L..DA 


FIFLAG 


lib 


:;:*D 


B7 








ORA 


A 


0E 


13!::! 


CA5B0B 








JZ 


WAITS 


GE 


Wl 


213 








OCX 


H 


0E 


^2 


7C 








MOV 


A y H 


0E 


:^3 


BS 








ORA 


L 


0E 


•<-\''\ 


C23A0B 








JNZ 


WAIT20 



J 960 ::;: APPROX* 1 SECOND 



COUNT > 



*HAS THE: INTERRUPT OCCURRED? 

5YE".Sy CONTINUE. 

?NO» COUNT DOWN THE TIMER 

*XS THE INNER LOOP COUNT EXHAUSTED? 
JNOv CONTINUE TO WAIT* 
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J OUTER WAIT LOOP <D ^ SECONDS) 



0B47 


15 


ob^b 


C2370B 


0B4B 


DB0 


0B4D 


320 DOC 


0B50 


IF 


0R51 


3E10 


0B53 


D2650B 


0B56 


3E08 


0B58 


C3650B 


0R5R 


SAO DOC 


0B5E 


IF 


0B5F 


%:>!::. .4:. U 


0B61 


DA650B 


0B64 


AF 


0B65 


320 CO C 


0B68 


09 



WAITS 0* 



WAITED % 



DCR 

JNZ 

IN 

ST A 

RAR 

MVI 

JNC 

MVI 

JMF' 

LDA 

RAR 

MVI 

JC 

XRA 

STA 
RET 
PAGE 



D 

WAIT 10 
FDCST 
FIST AT 

A y PSTWE2 
WAIT40 
A ? PSTWE3 
WAIT -40 

FISTAT 

As»PSTWE:!. 
WAIT 40 

A 

PSTAT 



£ if Eb f 

>NO* RESET INNER I...OOP COUNT? THEN WAIT 

J READ FD1793 STATUS* 

J SAVE FD1793 STATUS* 

J IS THE FD1793 BUSY? 

? NO v 

JYESy TO & BUSY, 



?GET SAVED STATUS* 
*IS THE FD1793 BUSY? 

$ YES y 

? NO f A™ -SUCCESSFUL 



& COMPLETE 



? RETURN TO CALLER* 
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% GENERAL PURPOSE UTILITY •■•• DMA CONTROLLER 

% 

t- NAME % 

» SUDMAO 

t FUNCTION? 

i INITIALIZE THE DMA CONTROLLER FOR MEMORY-TO-MEMORY TRANSFERS 

* (CHANNELS a 1 ARE USED FOR MEM-TO-MEM TRANSFER) 

t input required: 

* B/C REGISTER PAIR MUST CONTAIN THE TRANSFER LENGTH- 1 
» D/E REGISTER PAIR MUST CONTAIN THE SOURCE ADDRESS 

? H/L REGISTER PAIR MUST CONTAIN THE TARGET ADDRESS 

f THE PAGE REGISTER MUST BE SET BY THE CALLER 

# 

; output- generated: 

% NONE 

* CALLING SEQUENCES 

* CALL SUDMAO 

SUDMAO % 

0B69 D31D OUT DMAMC * RESET THE DMA CONTROLLER* 

0B6B 3E83 MVI A»DMA0RD 

0B6D D31B OUT DM AMR ? WRITE THE DMA MODE REGISTER* 

0B6F 3EB5 MVI A?DMA:i.WT 

0B71 D31B OUT DMAMR % WRITE THE DMA MODE REGISTER* 

0B73 3E01 MUI A»MEMMEM 

0B75 D318 OUT DMACR J WRITE THE DMA COMMAND REGISTER* 

0B77 D31C OUT DMACBP * CLEAR THE BYTE POINTER FLIP-FLOP* 

0B79 7B MOM A»E 

0B7A D310 OUT DMAAR0 % WRITE LSB OF ■ THE SOURCE ADDRESS* 

0B7C 7 A MOV A*D 

0B7D D310 OUT DMAAR0 % WRITE MSB OF "THE SOURCE ADDRESS* 

0B7F 7D MOM A»L 

0B80 D312 OUT" DMAAR1 J WRITE LSB OF THE TARGET ADDRESS* 

0B82 7C MOV A?H 

0B83 D312 OUT DMAAR1 .WRITE MSB OF THE TARGET ADDRESS* 

0B85 79 MOV Aj>C 



CP/M MACRO ASSEM 2*0 
0BS6 D3:U. 

obss 78 

0B89 D3:t.l 
0B3B 79 
0B3C D31.3 
0B3E 78 
0B3F D313 
0B91 C9 



#1.06 


FW612G 


OUT 


DMAWCO 


MOV 


AyB 


OUT 


DMAWCO 


MOV 


A 9 C 


OUT 


DMAWC1 


MOV 


A f B 


OUT 


DMAWC1 


RET 




PAGE 





am95/ a j. 2 f irmw are - pn 5 5 67- 1 - 2 

* write lsb of the: word count* 

* write msb of the word count* 

j write lsb of the word count* 

* write msb of the word count* 
j return to caller* 
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? Ai M W. VS. & M & JK )K M W, W. 5K 5K >£ JK & >K M W- )K '#. &: & & >K >K )K X< )K >K 5K >K W. W. '& ;K JK & >K )K >K >K )K >K ;K JK ;K >K ;K X< ;£ ;£ y.< )K >K >K >K )K SK >K X< & "#. 5K >K 5K >K 5K >K )K 

* general purpose utility - dma controller 
? name; 

* SUDMA2 

? function: 

* initialize the dma controller for non-buffered operations* 

* channel 2 is used for disk read-mem write 

t INPUT REQUIRED I 

* H/L REGISTER PAIR MUST CONTAIN THE DMA ADDRESS 

* 'SECLEN 1 MUST CONTAIN THE DMA WORD COUNT 

t THE PAGE REGISTER MUST BE SET BY TOE CALLER 

I OUTPUT GENERATED I 

* NONE 

* CALLING SEQUENCE I 

* CALL SUDMA2 

SUDMA2J 
0B92 3E^6 

0B9^t D31B OUT DMAMR ? WRITE "THE DMA MODE REGISTER* 

0B96 3E0 

0B98 D31B OUT DMACR * WRITE THE DMA COMMAND REGISTER 

0B9A D3:i.C OUT DMACBP * CLEAR THE BYTE POINTER FLIP-FLOP 

0B9C 70 



MMI 


A 9 DMA2RD 


OUT 


DMAMR 


MUI 


ApMEMIO 


OUT 


DMACR 


OUT 


DMACBP 


MOV 


A 9 L 


OUT 


DMAAR2 


MOV 


A 9 H 


OUT 


DMAAR2 


LDA 


SECLEN 


OUT 

V l"i ,'\ 


DMAWC2 


OUT 


DMAWC2 



0B9D D3i^ OUT DMAAR2 J WRITE LSB OF "THE DMA ADDRESS* 

0B9F 7C 

0BA0 D31^ OUT DMAAR2 % WRITE MSB OF "THE DMA ADDRESS. 

0BA2 3A100C 

0BA5 D315 OUT DMAWC2 ? WRITE LSB OF "THE DMA WORD COUNT* 

0BA7 AF 

0BA8 D315 OUT DMAWC2 % WRITE MSB OF THE DMA WORD COUNT 

0BAA C9 RET ? RETURN TO CALLER* 

PAGE 
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#108 
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OBAB 3E/iB 
OBAD D31B 
OBAF 3E0 
0BB1 D318 
0BB3 D31C 
0BB5 70 
0BB6 D316 
OBBB 7C 
0BB9 D316 
OBBB 3A100C 
OBBE D317 
OBCO AF 
0BC1 03 17 
0BC3 09 



% >K M >K >ft ;K >K >K >K )K X< )K JK >K W. >K >K )K >K M >K JK >K ;« )K K )K & >K >K SK & >K JK )K ft )K )K W. & tt ft ft ft ft * ft ft ft ft ft ft ft >K ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 

? GENERAL. PURPOSE UTILITY • DMA CONTROLLER 

y 

? NAME I 



% SUDMA3 

? FUNCTION J 

J INITIALIZE THE DMA CONTROLLER FOR NON-BUFFERED OPERATIONS* 

% CHANNEL 3 IS USED FOR MEM READ-DISK WRITE 

i- 

* INPUT REQUIRED ♦ 

% H/L REGISTER PAIR MUST CONTAIN THE DMA ADDRESS 

% 'SECLEN' MUST CON IAIN THE DMA WORD COUNT 

% THE! PAGE REGISTER MUST BE SET" BY THE CALLER 

% 

% OUTPUT GENERATED * 

% NONE 

t CALLING SEQUENCE: 

* CALL SUDMA3 

SUDMA3 X 



MVI 
OUT 
MVI 
OUT 
GUI' 
MOV 
OUT 
MOV 
OUT 
LDA 
OUT 
XRA 
OUT 
RET 
PAGE 



AvDMASWT 

DMAMR 

A 9 MEMIO 

DMACR 

DMACBP 

AvL 

DMAAR3 

A v H 

DMAAR3 

SECLEN 

DMAWC3 

A 

DMAWC3 



J WRITE THE DMA MODE REGISTER* 

* WRITE THE DMA COMMAND REGISTER* 
? CLEAR THE BYTE POINTER FLIP-FLOP 

? WRITE LSB OF THE DMA ADDRESS* 

t WRITE MSB OF THE DMA ADDRESS* 

? WRITE LSB OF THE DMA WORD COUNT* 

% writ);;: msb of the dma word count* 
.return to caller* 
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£:*)K3KJK30c}K)kioc2«>k)K}K}k>k;k&>k^ 

i- 

t GENERAL PURPOSE UTILITY - 

£ 

% name: 

% GETADR 

%• 

% FUNCTION : 

% GET USERS MAIN MEMORY ADDRESS FROM THE MAILBOX REGISTERS 

* 

% INPUT REQUIRED % 

% «R0' MUST CONTAIN THE 4 MOST SIGNIFICANT BITS OF ADDRESS 

* ! R1 ! MUST CONTAIN THE 8 NEXT BITS OF ADDRESS 

% ' ! R2' MUST CONTAIN THE 8 LEAST SIGNIFICANT BITS OF ADDRESS 

% 

% OUTPUT GENERATED? 

% 'USPS' WILL CONTAIN THE <\ MOST SIGNIFICANT BITS 

* 'USMA 1 WILL CONTAIN THE 16 LEAST SIGNIFICANT BITS 

% CALLING SEQUENCE! 

% CALL GETADR 





Gb. ! Al 


DR % 






0BCH DB30 






IN 


R0 


0BC6 32160C 






STA 


USPS 


0BC9 DB31 






IN 


Rl 


0BUB 32180C 






STA 


USMA+1 


0BCE DB32 






IN 


R2 


0BD0 3217 0C 






STA 


USMA 


0BD3 C9 






RET 
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J GENERAL PURPOSE UTILITY •••• 
* 

t NAME t 

t RSTSEN 

* FUNCTIONS 

t RESET THE SENSE. ERROR BYTES 

* 

t input required: 

t NONE 

? 

? OUTPUT GENERATED! 

J NONE 

? 

? CALLING SEQUENCE: 

J CALL RSTSEN 

% 

RSTSEN % 



? RESET SENSE BYTE 4 

£AM I DONE? 

% NO? CONTINUE ♦ 

J RETURN TO THE CALLER* 



GBIiH 0608 






MVI 


B>8 


0BD6 21080C 


RST 


sio: 


LXI 


H 9 SENSE+4 


0BD9 360 






MVI 


M*Q 


0BDB 23 






INX 


H 


0BDC OS 






DCR 


B 


0BDD C2D90B 






JNZ 


RSTS10 


0BE0 C9 






RET 
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0BE1 7676 P2DATAS DM 



::, 2D 



*PROM 2 FIXED DATA FOR PROM TEST 
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SPECIAL HOOKS FOR DOWNLOADED CODE 



OBI" 



0BF4 0E0C 
0BF6 35 OB 



UBF8 
OBFA 



ABO A 
DO 08 



OBFC C40B 



GBi 



SF04 





ORC 


H00K7 t 


DM 


H00K6X 


DW 


HOOKS % 


DW 


HOOK 4 i 


DW 


HOOKS x 


DW 


H00K2 I 


DW 


HOOK 1 % 


DW 




PAC 



0BF2H 

DONE 

FIFE AG 

WAIT 

STEPI 

ADDRSU 

GETADR 

HOME 



* A ( DONi::! ) * 
?A<FIFLAG> * 
JA( WAIT ) * 
JA(STEPI) * 
? A ( ADDRSU > » 
'i A ( GET ADR ) * 

% a ( home: ) * 



V 
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0C00 



ocoo 

0C02 



$)K)K5KSe)K)K}K)K)K3K)K>K)K)K}K)K3K)K5KX)K)KX^^ 

J H I S C E L f... A N E U S D ATA A R E A 

♦ 

J)KX)KJK)K>K)KX)K)K)K)K)K)K)K)K}K)K}K]K)KJK)K*^ 

ORG RAHORG 
♦ 
* ADDRESS TABLE OF" MAJOR USER COMMANDS 

9 

JMPTABS 



DS 



J READ COMMAND PROCESSOR * 
* WRITE COMMAND PROCESSOR * 



* SENSE 1 GROUP J 

% UNIT DRIVE TRACK SECTOR 
♦ 

* SENSE2 GROUPS 

t SENSE1 PLUS CCC UCC USTAT PCC PSTAT FIST AT FIFLAG (SPARE) 



0C04 
0C05 
0C06 
0C07 
0C08 
0C09 
C A 
0C0B 
0C0C 
0C0D 
0C0E 
0C0F 



SENSE % 
UNIT % DS 

DRIVES DS 
TRACK I DS 
SECTORS DS 
CCC J DS 
UCC X DS 

USTAT J DS 
PCC J DS 
PSTAT * DS 
FIST AT i DS 
FIFLAG % DS 
DS 
PAGE 



fUSER SPECIFIED UNIT CODE* 

♦WORKING DRIVE NUMBER? SIDE? DENSITY* 

J'N'EXT* TRACK NUMBER* 

♦'NEXT* SECTOR NUMBER* 

% COMMAND COMPLETION CODE * 

♦UTILITY COMPLETION CODE* 

£ UTILITY STATUS* 

♦PRIMITIVE COMPLETION CODE* 

♦PRIMITIVE STATUS* 

JFD1793 ISR STATUS SAVE AREA* 

♦FD1793 ISR 'INTERRUPT OCCURRED 5 FLAG* 

♦SPARE* 



CP/M MACRO ASSEM 2 * 



FN6!2i) ••■■ Ah9U/6l20 > IRMNAhi IN 0Ulh.>UU6/-U I --00? 



0C:i.u 
DC 11 
C :i. 2 
OCX 3 
0C14 
0G16 
oc:i.7 

OC.1.9 
GCiA 
0C:i.C 

0C1D 
CH- 
OC IF 
0C20 
0C21 
0C22 
0C24 
0C25 

0C26 
0C27 
0C28 
0C29 
0C2A 
0C2B 
0C2C 
0C2D 
0C2E 
0C2F 
0C30 

0C31 
0C32 
0C33 

0C37 
0C3S 
0C39 



SECLEN X 


DS 


:l. 


BML X 


DS 


1 


BMC'M X 


DS 


;i 


BMCW : 


DS 


:!. 


UET.XL.TH * 


DS 


2 


USPS * 


DS 


i 


USMA X 


DS 


'?' 


PAGSEG X 


DS 


1 


HEMADR * 


DS 


.c. 


SECCNT X 


DS 


1 


RDWTRC X 


DS 


1 


SEEKRC X 


DS 


1 


RCNT.lt 


DS 


1 


RCNT2* 


DS 


1 


RCNT3 * 


DS 


1 


RTADDR* 


DS 


£". 


DM AHU t 


DS 


1 


HOMEWD X 


DS 


1 


SECINC X 


DS 


1 


INTFLGJ 


DS 


1 


mtrctl* 


DS 


1 


bpi* 


DS 


1 


HITK* 


DS 
DS 


1 
1 


FREST X 


DS 


1 


FSEEK 1 


DS 


1 


FST.EPI t 


DS 


1 


RDIOC* 


DS 


1 


wtioc: 


DS 


I 


DRVNOW X 


DS 


1 


TRKNOW X 


DS 


1 


dotrak: 


DS 


4 


SIDE X 


DS 


:!. 


INIDSR * 


DS 


l 


INITCT X 


DS 

PAGE 
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J USER SPECIFIED SECTOR LENGTH CHINOS 1 > * 

J BURST MODE LENGTH-- 1* 

? BURST MODE COUNT (MASTER), 

% BURST MODE COUNT (WORKING)* 

% USER PROGRAM EXECUTE TRANSFER LENGTH-:!.* 

JUSER SPECIFIED MEMORY ADDRESS* 

% USER SPECIFIED MEMORY ADDRESS ♦ 

5 WORKING PAGE SEGMENT REGISTER VALUE* 

t WORKING MEMORY ADDRESS •> 

? SECTOR COUNT FROM READy WRITE y EXECUTE COMMANDS, 

5 READ/WRITE RETRY MASTER COUNT (l^NONEv 10^9)* 

5 SEEK RETRY MASTER COUNT <l-"NGNEy 6-5)* 

J WORKING READ/WRITE RETRY" COUNTER* 

J WORKING SEEK RETRY COUNTER* 

* WORKING 'BUILT-IN' RESTORE RETRY COUNTER* 

* RETRY ADDRESS TO PLUG INTO THE DMA CONTROLLER* 

? ' DMA HUNG-UP ' FLAG * 

£ ' WRONG DENSITY ' BIT" FOR HOME * 

* SECTOR INCREMENT VALUE (INTERLACE - 1*1 OR 2*1)* 
'i USER SPECIFIED INTERRUPT REQUEST" FLAG * 

J MOTOR CONTROL FLAG FOR 'MINI' (JUMPER OPTION)* 
* 'BYPASS INTERRUPT' FLAG (CLRINT/SENSE1/SENSE2) * 
JHIGH TRACK? STD :::: 77/MINI ~ 35* 

* HIGH SECTOR v STD = 27/MINI ■■■■ 19* 
? RESTORE I/O COMMAND* 

J SEEK I/O COMMAND* 

5 STEP-IN I/O COMMAND* 

* READ SECTOR I/O COMMAND* 

J WRITE SECTOR I/O COMMAND* 

? NUMBER OF DRIVE CURRENTLY SELECTED (BITS 3-0) ♦. 

% NUMBER OF TRACK CURRENTLY AVAILABLE * 

% TRACK AVAILABLE SAVE- AREA FOLLOWING DESELECT * 

JST.DE INDICATOR FOR « INIT ' ♦ 

* DRIVE SELECT REGISTER FOR TRACKS OTHER THAN 0* 

% ADDRESS OF APPROPRIATE CONTROL TABLE * 



-of/M MACRO ASSEM 2*0 



£C15 



FW6120 •• An95/6l20 FIRMWARE: : - PN 05050 067-0 0:1.-0 02 



0C3B 
0C3D 
0C3F 
OC^i 
0C42 
GC43 
0C45 
0C47 
0C<{9 



? THE FOLLOWING 9 ITEMS MUST REMAIN TOGETHER AS A BLOCK! • i 
* THIS DATA BLOCK IS LOADED AT RUN TIME BY ! INIT « * 



FTADDRJ DS 
TKOS X DS 

DMACB : DS 
HALFSE* DS 
LASTSE : DS 
TRALR1J DS 
TRALR2J DS 
TRALRS % DS 
LASTTKJ DS 



* FORMAT TABLE ADDRESS* 

* TRACK OFFSET' * 

JDMA CONTROL BLOCK ADDRESS, 

H-SALF SECTOR LENGTH* 

H..AST SECTOR ALLOWED* 

? ADDRESS OF FIRST HALF OF TRAILER* 

» ADDRESS OF SECOND HALF OF TRAILER ♦ 

% ADDRESS OF TRAILER IN FORMAT TABLE 

% LAST TRACK ALLOWED * 



PAGE 
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?XXC)K)Oe)KXC>K>K>K>K}K)K)K>K)K>K>KK^ 

i- 

% T H E ! S T A C K ' 

t 

0(>'*A OS 2/\ 

STACK I 

PAGE 



)K)K)K)K3K>K)K)K)K>K>K>KX>K**)K)K>K)K*MC)IC)K)K)K^ 



? D I S K I / B U F F E R 



0C62 BUFFt DS 256 JDISK I/O BUFFER* 

PACE 



$*X5KX*X**)KXX*XX)K***XttX**tt^ 

j U S E R P R G RAM A R E A 

j 10 64-BYTE BLOCKS' AVAILABLE 

0D80 ORG UPORG 

USER t 

PAGE 
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